1 



Screen Oriented Video Editor 



Version LI 
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The FORTH lanquage is a very powerful addition to the Atari home computer. 
Programs which are ' impossible to write in BASIC (usually because of limitations 
in speed and flexibility) can almost alvays be written in FORTH. Even when one 
has mastered the BASIC language, making corrections or additions to programs 
can be tedious.- The video editor described here removes this problem from 
the FORTH environment. Similar to the MEMO PAD function in the Atari operating 
system, this editor makes it possible to insert and delete entire lines of code, 
insert and delete single characters, toggle between insert and replace modes, 
move entire blocks of text, and much more. 
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Purchasers of this software and documentation package are 
authorized only to make backup or archival copies of the 
software^ and only for personal use. Copying the accompanyin 
documentation 1$ prohibited^ 

Copies of softv^are for distribution may be made only as speci 
fied in the accompanying documentation. 
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VALPAR INTERNATIONAL 

Disclaimer of Warranty 
on Computer Programs 



All Valpar International computer programs are distributed 
on an ^'as is^' basis without warranty of any kind. The total 
risk, as to the quality and performance of such programs is with 
the purchaser« Should the programs prove defective following 
their purchase, the purchaser and not the manufacturer, distributor, 
or retailer assumes the entire cost of all necessary servicing or 
repai r, 

Valpar International shall have no liability or responsibility 
to a purchaser, customer, or any other person or entity with 
respect to any liability, loss, or damage caused directly or 
indirectly by" computer programs sold by Valpar International 
This disclaimer Includes but is not limited to any interruption 
of service, loss of business or anticipatory profits or conse- 
quential damages resulting from the use or operation of such 
computer programs. 

Defective media (diskettes) will be replaced if diskette! s) 
is returned to Valpar International within 30 days of date of sale 
to user. 

Defective media (diskettes) which is returned after the 30 day 
sale date will be replaced upon the receipt by Valpar of a $12.00 
Replacem.ent Fee. 
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Overview 

This editor is a powerful extension to the val FORTH system designed 
specifically for the Atari 400/800 series of microcomputers* The main purpose 
for this editor is to give the FORTH programmer an easy method of text entry to 
screens for subsequent compilation. The editor has four basic modes of opera- 
tion: 

1) It allows entering of new text to a FORTH screen as though 
typing on a regular typewriter « 

2) It allows quicks painless modification of any text with a 
pov/erful set of single stroke editing commands, 

3) It pinpoints exactly where a compilation error has occurred 
and sets up the editor for immediate correction and 
recompilation, 

4) Given the name of a precompiled word, it locates where the 
original text definition of the word is on disk, if the 
"LOCATOR*' option had been selected when the word was compiled^ 

The set of single stroke editing commands is a superset of the functions 
found in the MEMO PAD function of the standard Atari operating system. In 
addition to cursor movement, single character insertion/deletion, and line 
insertion/deletion^ the editor supports a clear- to-end-of-1 ine function, a 
split command which separates a single line into two lines, and a useful insert 
submode usually found only in higher quality word processors. 

In addition, there are provisions for scrolling both forwards and backwards 
through screens, and to save or ''forget'' any changes made. This is useful at 
times when text is mistakenly modified. 

Also provided is a visible edit storage buffer which allows the user to 
move^ replace, and insert up to 320 lines of text at a time. This feature alone 
allows the FORTH programmer to easily reorganize source code with the added 
benefit of knowing that re-typing mistakes are avoided. Usage has shown that 
once edit-buffer management is learned, significant typing and programming 
time can be saved. 

For those times when not programming, the editor can double as a simple 
word processor for writing letters and filling other docum.entation needs. 
The best method for learning how to use this powerful editor is to enter the 
edit mode and try each of the following commands as they are encountered in 
the reading. 

As stated above, there are four ways in which to enter the video editor. 
The following four com^mands explain each of the possibilities. Note that the 
symbol 'kret>'' indicates that the "RETURN" key is to be typed. 
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V view screen ( serif - 

To edit a screen for the first time, the ''View'- command is to be 
used. The video display vn"ll enter a 32 character wide mode and will 
be broken into three distinct sections. For example, 

50 y <ret> 

should give something like the display shown in fig. L 



Screen # 50 U #Bufs: 5 i 



( Example screen ) ( line 0 ) 



TESTl 
10 0 



I CR 
LOOP ; 



( line 2 ) 



: OCTAL 
8 BASE ! ; 

■ +C! 
DUP C(3 ROT + 



i 



( • bottom 1 i ne ) 




Fig. 1 



The top window^ composed of a single line, indicates in decimal 
which screen is currently being edited. One should always make a 
practice of checking this screen number to insure that editing will be 
done on the intended screen. Often times, when working with other 
number bases, the wrong screen is called up accidentally and catching 
this mistake early can save timfO, Also shown is the size of the edit 
buffer (described later). In this example, the buffer is five lines in 
length. This window is known as the heading window. 
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FORTH screens typically are IK {1024 characters) long. Since it is 
impossible to see an entire screen siniul taneously ^ this editor reveals 
only half a screen at a time. There is an ''upper'' half and a ''lov^/er'' ■ 
half» In the ce?iter of the heading window, either a ''U" or an ''L'' 
is displayed indicating which half of the current screen is being viewed. 
If the valFORTH system is in the half-K screen mode, neither ''ir' nor "L'' 
is displayed since an entire half-K screen can be viev^ed at one time. 
In figure 1, the upper half of a full'-K screen is being viewed. 

The second window {the text window) contains the text found on the 
specified screen. This vn^ndow is 32 characters wide and 16 lines high» 
The white cursor (indicated by the symbol ''m'') will be in the upper- 
lefthand corner of the screen avaiting editing commands. 

The final five-line window found at the bottom of the screen is 
known as the buffer window. This is used for advanced editing and is 
described in greater detail in the section entitled ''Buffer Management." 



L re-edit last screen ( ) 

This command is used to re~edit the "Last" screen edited* It 
functions identically to the "V" command described above , except no 
screen number is specified. 

Example: L <ret> (re~edit screen 50) 

WHERE find location of error ( — ) 

If, when compiling code, a compilation error occurs, the WHERE 
command will enter the edit mode and position the cursor over the last 
letter of the offending word. The word can then be fixed and the screen 
can be re-compiled. Bear in mind that using the WHERE command prior to 
any occurrence of an error could give strange results. 



LOCATE locate definition cccc ( ) 

Once source text has been compiled into the dictionary, it loses 
easy readability to all but experts of the FORTH language. Often times, 
though, it is helpful to see what the original source code was. The 
DECOMP command found in the debugger helps tremendously in this regard, 
however, some structures such as IF and DO are still difficult to follow« 
For this reason, the LOCATE command is included with the editor. 

This command accepts a word name, and if at all possible it will 
actually direct the editor to load in the screen where that word v/as 
defined. This is very helpful at times when one cannot remember where 
the original text was. If the screen shown in figure 1 were loaded and 
the comtmand 

LOCATE <ret> 

were given, the editor would call up screen 50 and position the cursor 
over the word which is the beginning of the definition for "-^C!". 
Typically, the LOCATE command will point to . "CODE" , "CONSTANT" , 
and other defining words. 
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There is a dravAack to this feature, however. In order to call up 
any word, the LOCATE command must knov'/ where the word actually is. 
Normally, when a word is compiled, there is no way of knowing where it 
was loaded from. Thus for the LOCATE command to work, each time a word 
is entered into the dictionary, three extra bytes of memory must be used 
to store this lookup information. For an application with many v^ords, 
these extra bytes per v^ford add up quickly, and this is not always 
desirable. For this reason, the LOCATOR command (described below) 
allows the user to enable or disable the storage of this lookup informa- 
tion. Only words that vvere compiled with the LOCATOR option selected 
can be located. If a word cannot be located, the user is warned, or if 
the DEBUGGER is loaded^ the v>/ord is DECOMPed giving pseudo original code. 



LOCATOR enable/disable location ( ON/OFF ) 

In order for a word to be locatable using LOCATE, the LOCATOR option 
must have been selected prior to compiling the v^ord. The LOCATOR option 
is selected by executing ''ON LOCATOR'^ and deselected by executing ''OFF 
LOCATOR'', For example: 

ON LOCATOR 

" '^"-^-^ " ^ ^ t> (partial view ot a screen) 

: STAR 42 EMIT ; 

OFF LOCATOR 

: NEGATE MINUS ; 

Only the words PLUS and STAR can be located, NEGATE cannot be located 
since the LOCATOR option was disabled. If the DEBUGGER were loaded, 
NEGATE would be decompiled (see the debugger) ^ otheroise, the user would 
be given a warning. The default value for LOCATOR is OFF, 



BUFS set buffer length ( #lines ) 

The #BUFS command allows the user to specify the length (in terms of 
number of lines) of the special edit storage buffer. The power of the 
edit buffer lies in the number of lines that can be stored in it. 
Although the default value is five, practice shows that at least 16 
lines should be set aside for this buffer. The maximum number of lines 
allowable is 320which is enough to hold 20 full screens simultaneously. 
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The following sections give a detailed description of all commands v^hich 
the video editor recognizes. A quick reference command list can be found 
follovfing these descriptions. 

Cursor Hovement 

When the edit mode is first entered via the ^'V'^ command, a cursor is placed 
1n the upper lefthand corner of the screen^ It should appear as a white block 
and may enclose a black letter » Whenever any key is typed and it is not recog- 
nized as an editor command^ it is placed in the text vn'ndow vihere the cursor 
appears. Likewise, any line functions (such as delete line) work on the line 
where the cursor is found. 



Ctrl A , Ctrl y , Ctrl <, Ctrl > move-cursor coninands 

To change the current edit line or character, one of four commands 
may be given. These are known as cursor commands » They are the four 
keys with arrows on them. These keys move the cursor In the direction 
specified by the arrow on the particular key pressed. There are times, 
however^ when this is not the case. 

If the current cursor line is the topmost line of the text window, 
and the ^'cursor-up^' command is issued (by simultaneously typing V.trV' 
and up-arrow'^ ) , the cursor will move to the bottom line of the text 
window. Likewise, a subsequent ^^cursor-down'' command would return the 
cursor to the topmost line of the window. Similarly, if the cursor is 
positioned on the leftmost edge and the ''cursor-left^' command is given, 
the cursor will ^vrap'^ to the rightmost character ON THE SAME LINE* 
Issuing ^^cursor-right'' will wrap back to the first character on that line. 



RETURN next-line command 

Mormally, the RETURN key positions the cursor on the first character 
of the next line. If RETURN is pressed when the cursor is on the last 
line of the text window (i.e., when the last text line of the screen is 
current), the cursor is positioned in the upper lefthand corner of the 
screen. 



TAB tabulate command 

The TAB key is used to tabulate to the next fixed four column 
tabular stop to the right of the current cursor character « TABbing off 
the end of the current line simply places the cursor at the beginning of 
that same line. 



NOTE: 

Many commands in the editor will "mark" a current FORTH screen as updated 
so that any changes made can be preserved on disk. As simple cursor movement 
does not change the text window in any way, these commands never mark the 
current FORTH screen. See the section on screen management for more informa- 
tion. 
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Editing Commands 

Editing commands are those commands which modify the text in some 
predefined manner and mark the current FORTH screen as updated for later 
saving. 



Ctrl INS character insert command 

When the ^'insert-character'^ command is given, a blank character 
is inserted at the current cursor location. "The current character anc 
all characters to the right are pushed to the right by one character 
position. The last character of the line ''falls off'^ the end and is 
lost. The inserted blank then becomes the current cursor character. 
This is the logical complement to the "del ete-character'^ command 
described belov^. 



Ctrl DEL delete character command 

When the ^'delete-character'^ command is issued, the current cursor 
character is removed, and all characters to the right of the current 
cursor character are moved left one position, thus giving a "squeeze^' 
effect. This is normally called '^closing" a line» The rightmost 
character on the line (ivhich was vacated) is replaced with a blank. 
This serves as the logical complement to the ''insert-command'^ described 
above. 



shift INS line insert command 

The '^1 ine- insert'' command inserts a blank line between the current 
cursor line and the line immediately above it. The current line and all 
lines below 1t are moved down one line to miake room for the new line. 
The last line on the screen falls off the bottom and is lost. If this 
command is accidentally typed, the ''oops'' command (ctrl-0) described 
later can be used to recover from the mistake. Also see the ''from buffers- 
command described in the section on buffer management for a similar command 
This command serves as the logical complement to the '^line-delete'' command 
described below. 



shift DEL line delete command 

The '^line-delete" command deletes the current cursor line. All 
lines below the current line are brought up one line and a blank line 
fills the vacated bottom line of the text window« The deleted line is 
lost. If this command is accidentally issued, recovery can be made by 
issuing the "oops" command (ctrl-0) described later. Also see the 
"to-buffer" command described in the section on buffer management for a 
similar command. The "del ete-1 ine" command serves as the logical comple- 
ment to the "line-insert" coniiiand. 
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Ctrl H erase to end of line 

The "Hack" command performs a clear- to-end-of-] ine function. The 
current cursor character and all characters to the right of it on the 
current line are blank filled. All characters blanked are lost. The 
"oops" command described later can be used to recover from an accidentally 
hacked line. 



Ctrl I Insert/ replace toggle 

In normal operation, any key typed which is not recognized by the 
editor as a control command will replace the current cursor character 
with itself. This is the standard replace mode. Normally, if one 
wanted to insert a character at the current cursor location, the insert 
character command would have to be issued before any text could be 
entered. If inserting many characters, this' is cumbersome. 

When active, the insert submode automatically makes room for any 
new characters or words and frees the user from having to worry about 
this. When the editor is called up via the "V" command, the insert mode 
is deactivated. Issuing the insert toggle command will activate it and 
the cursor will blink, indicating that the insert mode is on. Issuing 
the command a second time will deactivate the insert mode and restore 
the editor to the replace mode. Note that while in the insert mode, all 
edit commands (except BACKS, below) function as before. 



BACKS delete previous character 

The BACKS key behaves in two different ways , depending upon whether 
the editor is in the insert mode or in the replace mode. When issued 
while in the replace mode, the cursor is backed up one position and the 
new current character is replaced with a blank. If the cursor is at the 
beginning of the line, the cursor does not move, but the cursor character 
is still replaced with a blank. 

If the editor is in the insert mode, the cursor backs up one 
position, then deletes the new current cursor character and then closes 
the line. If the cursor is at the beginning of the line, the cursor 
remains in the same position, the cursor character is deleted and the 
1 ine closed. 



NOTE : 

As all of the above commands modify the text window in some manner, the 
screen is marked as having been changed. This is to be sure that all changes 
made are eventually saved''on disk. The "quit" command described in the section 
on changing screens allows one to unmark a screen so that major mistakes need 
not be saved. 
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Buffer Management 

Much of the utility of the val FORTH editor Ties in its ability to tempo- 
rarily save text in a visible buffer. To aid the user, it is possible to 
temporarily send text to the buffer and to later retrieve it. This storage 
buffer can hold as many as 320 lines of text simultaneously. This buffer is 
viewed through a 5 line ''peephole^' visible as the last window on the screen. 
Using this buffer, it 1s possible to duplicate, move, and easily reorganize 
text^ in addition to temporarily saving a line that is about to be edited so 
that the original form can be viewed or restored if necessary. The following 
section will explain exactly how to accomplish each of these actions» 



Ctrl T to buffer command 

The ^^to-buffer^' command deletes the current cursor line, but 
unlike the ^'delete-1 ine^' comimand where the line is lost, this command 
moves the ^^peephole'^ down and copies the line to the bottom line of the 
visible buffer window» This line 1s the current buffer line. The buffer 
is rolled upon each occurrence of this command so that it may be used 
repeatedly without the loss of stored text. 

For example, if the cursor is positioned on line eight of the display 
. shown in figure 1 and the to-buff er'^ command is issued twice, the final 
result will be as shown in figure 2. 



etrl F ^^om buffer command 

The '^from-buffer^' command does exactly the opposite of the ''to- 
buffer" command described above. It takes the current buffer line and 
inserts it between the current cursor line and the line above it. The 
cursor line and all lines below it are moved down one line with the last 
line of the text window beinq lost« If the cursor were placed on line 14 
of the above screen display and the '^f ronnbuf fer' command were issued once 
the display In figure 3 v/ould result* 
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Screen # 50 



U 



#Buf s: 



5 



( Example screen ) ( 1 ine 0 ) 

: TESTl ( line 2 ) 

10 0 
DO 

I CR . 
LOOP ; 



Current 



+C! 
DUP 



C@ ROT + 



SWAP C! 



bottom 1 ine ) 



1 



Current 




fig. 2 
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Screen # 50 



U 



#Bufs: 5 



Current: 



( Example screen ) ( line 0 ) 

: TEST! ( line 2 ) 

10 0 
DO 



LOOP ; 



+C! 

DUP C(a ROT + 
SWAP C! ; 
8 BASE ! ; 



bottom line ) 



'"7- 



1 1ne v^ds 
rolled to 
the top 




8 BASE ! ; 


Current: 




: OCTAL ( — ) 






fig, 3 


If t^ 
through IS 


le ^'froo' 
) of the 


H buffer'' command is issued again, t 
text vn'ndow v^ould look like: 


Current: 




: OCTAL ( ) 
8 BASE i ; 

( bottom 1 1 ne ) 






fig. 4 


Note 


that a 


block of text has been moved on the 



blocks of text can be moved in the same manner 



Larg 



xrio 
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Ctrl K 



copy to buffer coniniand 



The ''copy-to-buffer'' command takes the current cursor line and 
duplicates 1t, sending the copy to the buffer. This commands functions 
identically to the "to-buffer^^ command described above, except that the 
current cursor line is MOT deleted from the text window. 



Ctrl U 



copy from buffer 



The ^'copy-from-buffer'' command replaces the current cursor line with 
the current buffer line. This command functions identically to the "from- 
buffer^' command described above, except that the buffer line is not inserted 
into the text window, it merely replaces the current cursor line. The 
^Dops'^ command described below can be used to recover from accidental 
usage of this command. 



Ctrl R roll buffer 

The ^' roll -buffer^' command moves the buffer ^'peephole'^ down one line 
and redisplays the visible window. If the buffer were the minimum five 
lines in length, the bottom four lines in the window would move up a line 
and the top line would "wrap'^ to the bottom and become the current buffer 
line. If there were more than five buffer lines, the bottom four lines 
would move up a line, the topmost line would be pushed up behind the 
peephole, and a new buffer line coming up from below the peephole would 
be displayed and made current. For example, if the buffer we re five lines 
long and contained: 



Current: 



( Who? 
( What? 
( When? 
( Where? 
( Why? 



ig. 5 



the "rol 1 -buffer'' command gives: 



Current: 



( What? 
( When? 
( Where? 
( Why? 
( Who? 



Fig. 6 



XI- 11 



val FORTH Video Editor LI 



Ctrl B back~rol 1-buffer command 

The '^back-rol l-buffer^^ does exactly the opposite of the '^roll- 
buffer'^ command described above. For example, if given the buffer in 
figure 6 above, the ''back'-rol V command v/ould give the buffer shown in 
figure 5- 

Ctrl C clear buffer line coramand 

The ''clear-buffer-1 ine^^ command clears the current buffer line and 
then ''back- rolls'' the buffer so that successive clears can be used to 
erase the entire buffer* 



NOTE: 

Any of the above commands which change the text window will mark the 
current screen as updated. Those commands which alter only the buffer window 
(such as the ''rolT' command) will not change the status of the current screen 
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Changing Screens 

There are four ways in v^hich to leave a FORTH screen. These four methods 
are: nioving to a previous screen, moving to a following screen^ saving the 
current screen and exiting^ or simply aborting the edit session. The four 
commands allowing this are now described: 

Ctrl P previous screen 



The ''previous-screen'' command has two basic functions. If the lov^er 
part of the current screen is being viewed in the text window, this 
com.mand simply displays the upper portion of the screen* If the upper 
portion is already being viewed, then the ''previous-^screen'' command saves 
any changes made to the current screen and then loads in the screen 
immediately before the current screen. The lower part of the screen 
will then be displayed. If in the half-K screen mode, however, this 
command simply changes screens. 

Ctrl N next screen command 

Like the "previous-screen^^ command described above, the ^^next-screen" 
command also has two basic functions* If the upper part of a screen is 
being viewed, this command simply displays the lower portion. If^ on the 
other hand 5 the lower part of the screen is being edited, any changes made 
to the current screen are saved and the next screen is loaded. 



Ctrl S save command 

The "save'' command saves any changes made to the current screen and 
exits the edit mode* The video screen is cleared, and the number of the 
screen just being edited is displayed for reference. Note that it is 
usually a good idea to immediately FLUSH (described in the section on 
screen management below) any unsaved screens. 

Ctrl Q quit command 

The "quit" command aborts the edit session "forgetting" any changes 
made to the text visible in the text window* Changes made on previously 
edited screens will NOT be forgotten. The "quit" command is usually 
used when either the wrong screen has been called up, or if it becomes 
desirable to start over and re-edit the screen again. 
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Special Commands 

There are four special commands in this editor v/hich aTlov/ greater flexi 
bility in programming on the valFORTH system: 

ESCAPE special key command 

The ''special-key'' command Instructs the video editor to ignore 
any command function of the key typed next and force a character to the 
screen» For example, nonnally when ''ctrl is typed, the cursor is 
moved right » By typing '^ESCAPE ctrl the cursor is not moved 
rather, the right-arrow is displayed. 



Ctrl A arrow command 

When dealing with FORTH screens^ it is, often necessary to put the 
FORTH word ^^->^^ (pronounced ^'next screen'')'or the ValFORTH word ''^^=>'* 
(pronounced ''next screen^^) or the ValFORTH word ^^=^^>'^ (pronounced '^next 
half~K screeiV) at the end of a screen for chaining a long set of words 
together. This command automatically pi aces ^ or erases, an arrow in the 
lower right hand corner of the text window. If "-->'^ is already there 5 
it is replaced with ''^==>''. If ''==^>^* is found, it is erased. (This 
command marks the screen as updated, ) 



Ctrl d split line command 



Often times^ for formatting reasons, it is necessary to ''split" a 
line into two lines. The split line command takes all characters to the 
left of the cursor and creates the first line, and with the remaining 
characters of the original line, a second line is created. Graphically, 
this looks like: 

before: | The quick^brown fox jumped. | 



after: | The quickii 1 

j brown fox jumped. i 

Since a line is inserted, the bottom line of the text window is lost. 
Using the ''oops'' command below, however, this can be recovered. 
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^^'^^'^'^ 0 oops command 

' ^ Occasionany, a line is inserted or deleted accidentally, half a 

line cleared by mistake, or some other major editing blunder 1s made 
As the name Implies, the "oops" command corrects most of these major* 
editing errors. The 'oops'^ command can be used to recover from the 
following commands: 

1) Insert line command (shift INS) 

2) delete line comnand (shift DEL) 

3) hack command (ctrl H) 

4) to buffer command (ctrl T) 

5) from buffer command (ctrl F) 

6) copy from buffer command (ctrl uj 

7) split line command (ctrl J) 
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Screen Management 

In addition to the corrrnands available while in the edit mode, there are 
several other commands which are for use outside of the edit mode. Typical ly^ 
these commands deal with entire screens at a time, 

FLUSH ( — ) 

When any changes are made to the current text window, the current 
screen is marked as having been changed. When leaving the edit mode 
using the ''save^' conimand, the current screen is sent to a set of internal 
FORTH buffers* These buffers are not written to disk until needed for 
other data. Thus, if no other screen is ever accessed, the buffers will 
never be saved to disk. The FLUSH command forces these buffers to be 
saved if they have been marked as being modified. 

Example: FLUSH <ret> 



EMPTY-BUFFERS 



f 



COPY 



Occasionally, screens are modified temporarily or by accident, and 
get marked as being modified. The EMPTY-BUFFERS command unmarks the 
internal FORTH buffers and fills them with zeroes so that 'bad^' data are 
not saved to disk. Zero filling the buffers ensures that the next access 
to any of the screens that were in the buffers will load the 
unadulterated copy from disk» The abbreviation MTB is included in the 
val FORTH system to make the use of this command easier. 

Examples: EMPTY-BUFFERS <ret> 

MTB <ret> 



{ from to ) 



To duplicate a screen, the COPY command is used. The screen "from 
is copied to the screen ''to'' but not flushed. 



Example: 51 60 COPY <ret> 
(Copies screen 51 to screen 60.) 



CLEAR 



( scr# ) 



The CLEAR command fills the specified screen with blanks so that a 
clean edit can be started. The screen is then made current so that the 
L command can be used to enter the edit mode* 

Example: 50 CLEAR <ret> 

(Clears screen 50 and makes it current.) 
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val FORTH Video Editor LI 



CLEARS ( $cr# #screens ) 

The CLEARS command is used to clear blocks of screens at a time. 
After user verification? it starts with the specified screen and clears 
the specified number of consecutive screens. The first screen cleared 
is made current so that the L comnand can be used to enter the edit mode. 

Example: 25 3 CLEARS <ret> 

Clear from SCR 25 

to SCR 27 <Y/M> Y 

(Screens 25-27 are cleared. Screen 25 is made current,) 



SMOVE . ( from to ^^screens ) 

The SMOVE command is a multiple screen copy conimand used for copying 
large numbers of consecutive screens at a time. User verification is 
required by this command to avoid disastrous loss of data. All screens 
to be copied are read into available memory and the user is prompted 
to initiate the copy. This allov^fs the swapping of disks between moves 
to make disk transfers possible. The number of screens the SMOVE command 
can copy at a time is limited only by available memory. 

Example: 50 60 5 SMOVE <ret> 

SMOVE from 50 thru 54 

to 60 thru 64 <Y/N> Y 
Insert source <RETURN> <ret> 
Insert dest« <RETIIRN> <ret> 

(Transfers the specified screens.) 
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val FORTH Video Editor LI 



Editor Cornniand Summary 

Belov^ is a quick reference list of all the commands v^hich the video editor ) 
recognizes. 

Entering the Edit Mode: (executed outside of the edit mode) 

V ( scr# 

Enter the edit mode and view the 
specified screen. 



L 



<Wh Mfi AIV> 



view the current screen 



#BUFS ( #line$ ~- 

Sets the length (in lines) of the storage 
buffer. The default is five* 



WHERE ( ) 

Enter the edit mode and position the 
cursor over the v/ord that caused a 
compilation error. 



LOCATE cccc ( 

Enter the edit mode and position the 
cursor over the word defining ''cccc''* 



LOCATOR ( ON/OFF - 

When DM, allows all words compiled until 
the next OFF to be locatable using the 
LOCATE com.mand above. 
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val FORTH Video Editor L 



Cursor Movement: (issued within the edit mode) 

Ctrl A Move cursor up one line, wrapping to the bottom 

line if moved off the top, 

V Move cursor down one lines wrapping to the top 

line if moved off the bottom. 

< Move cursor left one character, wrapping to the 

right edge if moved off the left* 

> Move cursor right one character, wrapping to the 

left edge if moved off the right* 

RETURN Position the cursor at the beginning of the next 

1 i ne , 

TAB Advance to next tabular columne 



Editing Commands: (issued within the edit mode) 

Ctrl IMS Insert one blank at cursor location^ losing the 

last character on the line. 

Ctrl DEL Delete character under cursor^ closing the line. 

shift INS Insert blank line above current line, losing the 

last line on the screen. 

shift DEL Delete current cursor line, closing the screen. 

Toggle insert-mode/repl ace-mode, (see full 
description of ctrl-I). 

<S Delete last character typed, if on the same line 

as the cursor. 

Ctrl H Erase to end of line (Hack). 
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val FORTH Video Editor 1/1 



uffer Management: (issued within the edit mode) 

Ctrl T Delete current cursor line sending it to the 

edit buffer for later use* 

Ctrl F Take the current buffer line and insert it 

above the current cursor line, 

Ctrl K Copy current cursor line sending it to the 

edit buffer for later use. 

Ctrl U Take the current buffer line and copy it to the 

current cursor line* 

Ctrl R Roll the buffer making the next buffer line 

current* 

Ctrl B Roll the buffer backwards making the previous 

buffer line on the screen current. 

Ctrl C Clear the current buffer line and perform 

a c t 



Note: The current buffer line is last line visible on the video display 

Changing Screens: {issued within the edit mode) 

Ctrl P Display the previous screen saving all changes 

made to the current text wi 



Ctrl N Display the next screen ^saving all changes made 

to the current text window. 

Ctrl S Save the changes made to the current text window 

and end the edit session* 

Ctrl Q . Quit the edit session forgetting all changes 

made to current text window* 

Special Keys: (issued within the edit mode) 

ESC Do not interpret the next key typed as any of 

the commands above « Send it directly to the 
screen instead. 

Ctrl A Put '^•^=->'*, or erase the lower right-hand 

corner of the text window« 

Ctrl J Split the current line into two lines at the 

point where the cursor is. 

Ctrl 0 Corrects any major editing blunders. 
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val FORTH Video Editor LI 



Screen Manaqement: 



(executed outside of the edit mode) 



FLUSH 



Save any updated FORTH screens to disk 



E?4PTY-BUFFERS 



Forget any changes made to any screens not 
yet FLUSHed to disk. Used in ''losing'' major 
editing mistakes« The abbreviation MTB is 
more conimonly used. 



COPY 



Copies screen #from to screen #to« 



( from to — ) 



CLEAR 



( scr# 

Blank fills specified screen. This performs 
the same functions as "WIPE'' in Leo Brodie^s 
book. 



- ) 



CLEARS 



Blank fills the specified 
starting with screen scr#< 



( scr# #screens 
of screens 



S.MOVE ( from to #screens ) 

Duplicate the specified number of screens 
Starting vn'th screen number '•from'^ Allows 
swapping of disks before saving screens to 
screen number ''to" . 
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STRING UTILITIES 



The following collection of words describes the string utilities of the 
val FORTH Utilities Package^ Strings have been implemented in the FORTH 
language in many different ways. Most implementations set aside space for a 
third stack a string stack. As strings are entered, they are moved (using 
CMOVE) to this stack. When strings are manipulated on this stack, niany long 
memory moves are usually required. This method is typically much slower than 
the method implemented in val FORTH, 

Rather than waste memory space with a third stack, val FORTH uses the 
already existing parameter stack. Unlike the implementation described above, 
val FORTH does not store strings on the stack« Rather, it stores the addresses 
of where the strings can be found,* Using this method, words such as SWAP 5 
DUP , PICK , and ROLL can be used to manipulate strings. Routines such as 
string sorts which v^ork on many strings at a time are typically much faster 
since addresses are manipulated rather than long strings. In practice, we 
have found few if any problems using this method of string representation. 



String Glossary 

For the purposes of this section, a string is defined to be a sequence 
of up to 255 characters preceded by a byte indicating its length. The first 
character of the string is referenced as character one. If the length of the 
string is zero, it has no characters and is called the ''nulV^ string. In. 
stack notation, strings are represented by the symbol $ and the address of the 
string is stored on the stack rather than the string itself^. 



-TEXT addrl n addr2 flag 

The word -TEXT compares n characters ataddressl with n characters 
at address2. Returns a false flag if the sequences match, true if they 
don^t. Flag is positive if the character sequence at address! is alpha- 
betically greater than the one at address2. Flag is zero if the 
character sequences match, and is negative if the character sequence at 

addressl is alphabetically less than the one at address2« 

-NUMBER addr d 

-NUMBER functions identically to the standard FORTH word NUMBER 
with the only difference being that -NUMBER does not abort program 
execution upon an illegal conversion. -NUMBER takes the character string 
at addr and attempts to convert it to a double number. On successful 
conversion, the value d is returned with the status variable NFL6 set 
to one. On unsuccessful conversion, a double number zero is returned 
with the variable NFLG set to zero. -NUMBER is pronounced ^^not number\ 



"^Representing strings on the stack by their addresses is a very useful concept 
borrowed from MMS Forth (TRS-80). authored by Tom Bowling, and available from 
Miller Microcomputer Services, 617-653-6136. 
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NFLG addr 

A variable used by -NUMBER that indicates v/hether the last conversi 

attempted was successful. NFLG is true if the conversion vms successful 
>/ise, it is false. 



IE addrl addr2 n 

UMOVE is a ^'universaV^ memory move. It takes the block of m.emory 
n bytes long at addrl and copies it to memory location addr2. UMOVE 
correctly uses either CMOVE or <CMOVE so that when a block of memory is 
moved onto part of itself, no data are destroyed. 

C!^ C!^ 

(at compil e time) 
addr (at run time) 
If compiling, the sequence cccc (delimited by the trailing is 
compiled into the dictionary as a string: 

t len ! c i c I c L . J c ! 
All valFORTH strings are represented in this fashion. Since a single 
byte is used to store the lengthy a maximum string length of 255 is 
allowed. A string with 0 length is called a ^'nulV' string« At 
execution time^ puts the address in memory where the string is 
located onto the stack. 

Note that is IMMEDIATE. When executed outside of a colon 
definition, the string is not compiled into the dictionary, but 
is stored at PAD instead. 

Example: This is a string'' 

$CONSTANT cccc $ (at compile time) 

cccc: $ (at execution time) 

Takes the string on top of the stack and compiles it into the 
dictionary with the name cccc. When cccc is later executed, the 
address of the string is pushed onto the stack* 
Exam.pl e: Ready? <Y/N> $CONSTANT VERIFY 

$VARIABLE cccc n 

c c c c » ^ 

Reserves space for a string of length n. When cccc is later 
executed, the address of the string is pushed onto the stack. 
Example: 80 $VARIABLE TEXTLINE 

$ • $ 

Takes the string on top of the stack and sends it to the current 

output device. 

Example: Hi there^^ $. <ret> Hi there 

$1 ' $ addr 

Takes the string at second on stack and stores it at the address 

on top of stack* 

Example: Store meV TEXTLINE $! 
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$+ $1 $2 $3 

Takes $2 and concatenates it with $1, leavinq $3 at PAD, 
Example: " Santa $CONSTANT 1ST 

' Claus^^ $CONSTANT LAST 
1ST LAST 

$. <ret> Santa Claus 

LEFT$ $1 n $2 

Returns the leftmost ''n^' characters of $1 as $2. $2 is stored 
at PAD. 

Example: They'' 3 LEFT$ $. <ret> The 

RIGHTS $1 n — $2 

Returns the rightmost ^'n'' characters of $1 as $2* $2 is stored 
at PAD. 

Example: '' mother'' 5 RIGHTS $, <ret> other 

MID$ - $1 n u $2 

Returns $2 of length u starting with the nth character of SL 
Recall that the first character of a string is numbered as one. 
Example: " Timeout" 3 2 MID$ $. <ret> me 



LEN $ len 

Returns the length of the specified string. 

ASC $ — c 

Returns the ASCII value of the first character of the specified 
string, 

$COMPARE $1 $2 flag 

Compares $1 with $2 and returns a status flag. The flag is 

a) positive if $1 is greater than $2 or is equal to $2, but longer, 

b) zero if the strings match and are the same length, and c) negative 
if $1 less than $2 or if they are equal and $1 is shorter than $2. 

$- $1 $2 flag 

Compares two strings on top of the stack and returns a status 
flag. The flag is true if the strings match and are equal in length, 
otherwise it is false. 

$< $1 S2 flag 

Compares two strings on top of the stack and returns a status 
flag. The flag is true if $1 is less than $2 or if SI matches $2 but 
is shorter in length. 

$> $1 $2 flag 

Compares two strings on top of the stack and returns a status 
flag. The flag is true if $1 is greater than $2 or if $1 matches $2 
but is longer in length, 

SAVES $1 — $2 

As most string operations leave resultant strings at PAD, the word 
SAVES is used to temporarily move strings to PAD+512 so that they can 
be manipulated without being altered in the process. 
Example: " Wash" SAVES ' ington" $+ 
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INSTR $1 $2 n 

Searches $1 for first occurrence of $2, Returns the character 
position in $1 if a match is found; otherwise, zero is returned. 
Example: ' FDCBA" $CONSTANT GRADES 

GRADES " A" IMSTR 1- . <ret> 4 

CHR$ c $ 

Takes the character ''c'' and makes it into a string of length one 
and stores it at PAD. 



DVAL $ d 

Takes numerical string $ and converts it to a double length number 
The variable NFLG is true if the conversion is successful, otherwise it 
1s false. See "-NUMBER above. 
Example: 123" DVAL D. <ret> 123 



VAL $ n 

Takes the numerical string $ and converts it to a single length 

number. The variable NFLG Is true if the conversion is successful \ 
otherwise it is false. See -NUMBER above. 

DSTR$ d $ 

Takes the double number d and converts it to its ASCII representa- 
tion as $ at PAD* 

Exam^ple: 123 DSTR$ $« <ret> .123 

STR$ n $ 

Takes the single length number n and converts it to its ASCII 
representation as $ at PAD, 

STRINGS n $1 M 

Creates $2 as n copies of the first character of $L 

#IN$ n $ 

#IN$ has three similar but different functions. If n is positive, 
it accepts a string of n or fewer characters from the terminal. If n is 
zero, it accepts up to 255 characters from the terminal. If n is nega- 
tive, it returns only after accepting -n characters from the terminal. 
The resultant string is stored at PAD. 

IN$ • $ 

Accepts a string of up to 255 characters from the terminal, 

S-TB $1 $2 

Removes trailing blanks from $1 leaving new $2. 



SXCHG $1 $2 

Exchanges the contents of $1 with $2 
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ARRAYS and their COUSINS 

All of the words described below create structures that are accessed in the 
same way, i.e., by putting the index or indices on the stack and then typing 
the structure's name. The differences are in the ways the structures are 

created. 

The concept of the array should be known from BASIC. While in fig-FORTH 
there is no standard way to implement arrays and similar structures, there 
does exist a general consensus about how this should be done. 

The point on which there is the most divergence of opinion is whether the 
first element in an array should be referred to by the index 0 or 1. We 
select 0 for the first index since this gives much cleaner code and makes 
more 'sense than 1 after you get used to it. (We've worked with it both ways.) 

ARRAY and CARRAY, and 2ARRAY and 2CARRAY 

The size of an array, specified when it is defined, is the number of elements 
in the array. In other words, an array defined by 

8 ARRAY BINGO 
will have 8 elements numbered 0-7. 
To access an element of an array, do 

n array-name 

to get the address of the nth element on the stack. (You will not be told 
if the number n is not a legitimate index number for the array.) Fo) example, 



5 BINu 



will leave the address of element number 5 in BINGO on the stack. You can 
store to or fetch from this address as you require. 

The word CARRAY defines a byte or character array. A c- array works the same 
as an array, except that you must use C@ and C! to manipulate single elements, 
rather than (a and 1 . 

Tu ^^Ac oADDfiY and •?rARRAY each take two numbers during definition of a 

element. Mote that when using a 2 CARRAY named, say, tntD.Dwr% 
named ROOK, the two phrases 

ROOK 4 6 CHESSBOARD 01 
and 

6 4 CHESSBOARD CI 



don't do the same thing. Also note that the phrase 
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8 8 2CARRAY CHESSBOARD 

defines a 2CARRAY of 8 x 8 - 64 elements, with both indices running from 0 to 
7. 

When an ARRAY or a CARRAY is defined, the initial values of the elements 

are undefined, 

TABLE AND CTABLE 

A cousin of ARRAY is TABLE. Example: The phrase 

TABLE THISLIST 14 , 18 , -34 , 16 , 

defines a table THISLIST of 4 elements. (The commas above are part of the 
code and must be included. ) The number of elements does not have to be 
specified. The elements in THISLIST are accessed using the indices 0-3, 
the same as if it had been defined as an array. The word CTABLE works 
similarly, though using C, instead of , to compile in the numbers. Note that 
negatives won't be compiled in by a C, since in two's complement representation 
negative numbers always occupy the maximum number of bytes. 

VECTOR and CVECTOR 

The last array- type words in this package are CVECTOR and VECTOR. Vector is 
just another name for a list. These words are used when the elements of the 
array you want to create are on the stack, with the last element on top of the 
stack. You just put the number of elements on the stack and the VECTOR or 
CVECTOR, and the name' you want to use. Example: 

-3 8 127 899 -43 5 VECTOR POSITIONS 

creates an arrav named POSITIONS with 5 elements. 0-4 with -3 in element 0 
"43 in element 4. CVECTOR works in a similar way. 



XAMPLES 



2 3 BIM 

Stores the value 2 into element 3 of array BINGO 



2 THISLIST @ 
Will leave the value in element 2 of table THISLIST. 
According to the definition of THISLIST above, this value 
wi 11 be - 34 . 



3 POSITION (3 . <cr> 899 
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ARRAY WORD GLOSSARY 



ARRAY cccc, n (compiling) 
cccc: rn addr (executing) 
When compiling, creates an array named cccc with n 16-bit elements numbered 0 
thru n-L Initial values are undefined. When executing, takes an argument, 
off the stack and leaves the address of element m of the array, 

CARRAY cccc, n -~ (compiling) 
cccc: m addr (executing) 
When compiling, creates a c-array named cccc with n 8-bit elements numbered 
0 thru n~L Initial values are undefined. When executing^ takes an argument, 
ni, off the stack and leaves the address of element m of the c~array. 

TABLE cccc, (compiling) 
cccc: m addr (executing) 
When compiling, creates a table named cccc but does not allot space. Elements 
are compiled in directly with . (comma). When executing, takes one argument, 
m off the stack and, assuming 16-bit elements, leaves the address of element 
m of the table. 

CTABLE cccc, (compiling) 

cccc: m addr (executing) 
When compiling, creates a c-table named cccc but does not allot space. Element 
are compiled in directly with C. (c- comma). When executing, takes one argument 
m off the stack and, assuming 8-bit elements, leaves the address of element m 
of the c~table» 

XI nO nN count addr 

Stores count 16-bit words, nO thru nN into memory starting at addr, with nO 
going into addr. Pronounced ^'extended store 

XC! bO . . , bM count addr 

Stores count 8-bit words, bO thru bN Into memory starting at addr, with bO 
going into addr. Pronounced '^extended c-store.'' 

VECTOR cccc, nO nN count (compiling) 
cccc: m addr (executing) 

When compiling, creates a vector named cccc with count 16-bit elements 
numbered 0~N. nO is the initial value of element 0, nN is the initial value 
of element N, and so on. When executing, takes one argument, m, off the stack 
and leaves the address of element m on the stack. 

CVECTOR cccc, bO , , , bN count (compiling) 

cccc: m addr (executing) 

When compiling, creates a c-vector named cccc with count 8-bit elements 
numbered bO is the initial value of element 0, bN is the initial value 

of element N, and so on. When executing, takes an argum^ent, m, off the stack 
and leaves the address of element m on the stack. 
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CASE STRUCTURES 



It often becomes necessary to make many tests upon a single number. 
Typically, this is accomplished by using a series of nested *'DUP test IF" 
statements followed by a series of ENDIFs to terminate the IFs* This is 
arduous and very wasteful of memory, val FORTH contains four very powerful 
Pascal-type CASE statements which ease programming and conserve memory* 



The CASE: structure 
Format: 



CASE: vvordname 
wordO 
wordl 

4 0 « 

wordN ; 



The word CASE: creates words that expect a number from 0 to 
N on the stack. If the number is zero, wordO is executed; if the 
number is one, the wordl is executed; and so on. No error checks are 
made to ensure that the case number is a legal value. 

Example: 

: ZERO ." Zero" ; 
: ONE One" ; 

. : TWO ." Two" ; 

CASE: NUM 

ZERO 
ONE 

TWO ; 

0 NUM <ret> Zero 

1 NUM <ret> One 

2 NUM <ret> Two 

Note that any other number (e.g. 3 NUM) will crash the system. 
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CASE Structure 



Format: 



: wordnanie 

S » 2 

CAS E 
wordO 
wordl 
» » « 

wordN 

( NOCASE wordnone ) (oDtional) 
CASEMD 

u 

« * * 5 

The CASE, CASEMD structure is always used within a colon 
definition. Like CASE: above, it requires a number from 

0 and N. However, unlike CASE: abovet. boundary checks are made 
so that an illegal case will do nothing. If the optional NOCASE 
clause is included then wordnone is executed if an ''out of bounds 
number is used. 



Examples: 

I) : ZERO J' Zero 

: ONE One" 

: TWO Two" 



CHECKNUM ( n — ) 

CASE 
ZERO 



CASEND 



0 CHECKNUM 

1 CHECKNUM 
999 CHECKNUM 

2 CHECKNUM 



<ret> Zero 

<ret> One 

<ret> (nothing happens) 

<ret> Two 
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II) 



GRADEA 
GRADES 
GRADEC 
GRADED 
OTHER 



A" 



C 



Failed" 



DECIMAL 

: GETGRADE 

KEY 65 - 

CAS E 

GRADEA 
GRADI 



GRADED 
NOCASE OTHER 



(Convert A to 0 



B to I5 etc) 



GETGRADE <return and press A> A 
GETGRADE <return and press B> B 
GETGRADE <return and press F> Failed 
GETGRADE <return and press D> D 



The SEL Structure 



Fo rma t 



wordname 



» « » 



SEL 



nl 
n2 



> wor 



v^ordl 



(Select) 



> vvordN 
NOSEL wordnone ) 
SELEND 



(optional ) 



« * » 
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The SEL-..SELEND structure is used when the ''selection'' numbers 
(nl etc*) are not sequential. This structure is somewhat slower than 
either CASE or CASE: , but is much more general. SEL is typically 
used in operations such as table driver menus where single keystroke 
commands are used„ The val FORTH video editor uses the SEL structure 
ement the many editing keystroke commands. 



Example: 



I) 



NICKEL 
DIME 
QUART E 
4BITS 
SUSANB 
BAD 



m'cke 
dime." ; 
quarter. " ; 

fifty cent piece." 



It 



vTOOden nickel 



MONEY-N/ 

That is called a 

SEL 

5 -> 



25 
50 
100 
NOSEL 
SELEND 



NICKE 

DIME 
QUARTE 
4BITS 
SUSANB 
BAD$$$ 



■> 



( n ) 



( this Una is optional ) 



5 MONEY-NAME <ret> That is ca 
33 MONEY-NAME <ret> That is 
25 MONEY-NAME <ret> That is 



a nickel . 

a wooden nickel . 

a quarter. 



The COND Structure 



Fo rma t 



wordname 

« « >6 

COND 

conditionO « wordsO » 
conditionl « words 1 » 



» » • 



condi tionN « wordsn » 
NOCOND wordsnone ) (optional ) 

CON DEN 0 
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Unlike the three previous CASE structures which test for equal ity, 
the COND structure bases its selection upon any true conditional test 
(e.g* if n > 0 then...) COND can also be used for range cases. The 
NOCOND clause is optional and is only executed if no other condition 
passes. Only the code of the first condition that passes will be 
executed* 

Example: 

: EXAM ( score grade ) 



COND 



90 


>= 


« 


Grade 


of 


A^^ 


4 » 


80 


>= 


« 


Grade 


of 


B'^ 


3 » 


70 


>= 


« 


J' Grade 


of 


C^' 


2 » 


60 


>^ 


« 


J' Grade 


of 




1 » 


MOCOND 


n 


Not 


too good'' 


0 






CON DEN! 


3 ; 













Note that neither « nor » are needed (nor allowed) around the 
^'NOCOND^' case. Also note that more than one word can be executed 
between the « and » 
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(intentionally left blank) 



1 
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DOUBLE NUMBER EXTENSIONS 



The following words extend the set of double number words to be as nearly 
identical as possible to the set in the book Starting FOj^TH. The exceptions 
are DVARIABLE and DCONSTANT which conform to the RGlFandard by expecting 

Initial values on the stack. 

An of the single number operations comparable to the double number operations 
below were machine coded; all of the words below (with the exception of DVARIABLE) 
have high-level run time code and so are considerably slower than their single 
number counterparts. 



DOUBLE NUMBER EXTENSION GLOSSARY 

DVARIABLE cccc d - ^ . 

cccc: addr 

At compile time, creates a double number variable cccc with the initial value d. 
At run time, cccc leaves the address of its value on the stack. 

DCOMSTANT cccc d - 

cccc: d 

At compile time, creates a double number constant cccc with the initial value d. 
At run time, cccc leaves the value d on the stack* 

0* 0. 

A dOiibli nuniber constant equal to double number zero. 
1 1 

A douMi number constant equal to double number one. 
0- dl da — d3 

Ltavii dl-d2-d3. 
00= d flag 

If d 1i tqual to 0. leaves true flag; otherwise, leaves falst flag. 
0- dl d2 — flag 

If dl tquils d2, leaves true flag; otherwise, leaves false flag. 
W4 d flag 

If d 1§ Rigative, leaves true flag; otherwise, leaves false flag. 

if dl 1§ 1i§s than"d2, leaves true flag; otherwise, leaves falst flag, 
0» dl d2 flag 

If dl 1§ greater than d2, leaves true flag; otherwise, Itavts falsft flag. 
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DMIM dl d2 d3 

Leaves the minimum of dl and d2. 

DMAX dl d2 d3 

Leaves the maxXimum of dl and d2« 

D>R d 

Sends the double number at top of stack to the return stack. 
DR> d 

Pulls the double number at top of the return stack to the stack « 
D, d 

Conipiles the double number at top of stack into the dictionary. 
DU< udl ud2 flag 

If the unsigned. double number udl is less than the unsigned double number ud2 
leaves a true flag; otherwise, leaves a false flag, 

M+ dl n d2 

Converts n to a double number and then sums mth dh 



) 



XII-15 



) 




) 



HIGH RESOLUTION TEXT OUTPUT 



Occasionally, the need arises to print text in high resolution graphic 
displays (8 GR«), The following set of v/ords explains how Graphic Characters 
can be used in val FORTH programs. The Graphic-Character output routines are 
designed to function identically to the standard FORTH output operations. 
There is an invisible cursor on the high resolution page which always points 
to where the next graphic-character will be printed. As with normal text 
outputs this cursor can be repositioned at any time and in various ways. 
Because of the nature of hi-res printing, this cursor can also be moved 
vertically by partial characters. This allows for super/subscripting, over- 
striking, and underlining. Multiple character fonts on the same line are 
also possible. 



GCINIT 

Initializes the graphic character output routines. This must be 
executed prior to using any other hi-res output words. 

6C » n 

Displays the single length number n at the current hi -res cursor 
location. 

GC.R nl n2 

Displays the single length number nl right-justified in a field 
n2 graphic characters wide. See ,R . 

GCD.R d n 

Displays the double length number d right-justified in a field n 
graphic characters wide. See D.R . 

GCEMIT c 

Displays the text character c at the current hi -res cursor location. 
Three special characters are interpreted by GCEMIT . The up arrow (t) 
forces text output into the superscript mode; the down arrow {\/) forces 
the text into the subscript mode; and the left arrow (<- ) performs a 
GCBKS command (described below). See OSTRIKE below; also see EMIT, 

GCLEN addr n len 

Scans the first n characters at addr and returns the number of 
characters that will actually be displayed on screen. This is typically 
used to find the true length of a string that contains any of the non- 
printing special characters described in GCEMIT above. Used principally 
to aid in centering text, etc. 

GCR 

Repositions the hi-res cursor to the beginning of the next hi-res 
text 1 ine. See CR , 

GCLS 

Clears the hi-res display and repositions the cursor in the upper 
lefthand corner. 
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GCSPACE 

Sends a space to the graphic character output routine. See SPACE . 

GCSPACES n - 

Sends n spaces to the graphic character output routine. See SPACES , 

GCTYPE addr n 

Sends the first n characters at addr to the graphic character output 
routine. See TYPE . 

W cccc' 

Sends the character string cccc (delimited by to the graphic 
character output routine. If in the execution mode^ this action is 
taken Immediately. If in the compile mode, the character string is 
compiled into the dictionary and printed out only when executed in 
the word that uses it. See J' . 

GCBKS 

Moves the hi-res cursor back one character position for overstriking 
or underlining, 

GCPOS horz vert 

Positions the hi-res cursor to the coordinates specified. Note 
that the upper lefthand corner is 0,0. 

GC$* addr — 

Sends the string found at addr and preceded by a count byte to the 
graphic character output routine. See $. . 



SUPER 

Forces the graphic character output routine into the superscript 
mode (or out of the subscript mode). See VMI below. May be performed 
within a string by the character. 

SUB 



VMI 



Forces the graphic character output routine into the subscript 
mode {or out of the superscript mode). See VMI below. May be performed 
within a string by the ^ character. 

woe loot 

Each character is eight bytes tal1« The VMI command sets the number 
of eighths of characters to scroll up or down when either a SUPER or SUB 
command is issued. Normally, 4 VMI is used to scroll 4/8 or half a 
character in either direction. 

VMI# addr 

A variable set by VML 

OSTRIKE ON or OFF 

The GCEMIT command has two separate functions. If OSTRIKE (overstrike) 
option is OFF, the character output will replace the character at the 
current cursor position. This is the normal method of output. If the 
OSTRIKE option is ON, the new character is printed over top of the previous 
character giving the impression of an overstrike. This allows the user to 
underline text and create new characters: Example: To do underline, a 
value of, say, 2 should be used with VMI, and then the y character added 
in the string before the underline character. 
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GCBAS addr 

A variable which contains the address of the character set displayed 
by GCEMIT* To change character sets, simply store the address of your 
nev/ character set into this variable. 

GCLFT ~- addr 

A variable which holds the column position of the left margin. 
Normally two^ this can be changed to obtain a different display window. 

GCRGT addr 

A variable which holds the column position of the right margin. 
Nornially 39, this can be changed to obtain a different display window. 



XIII-3 



(Intentionally left blank) 



) 



XIII-4 



MISCELLANEOUS UTILITIES 



This 1s a grab-bag of useful words. Here they are..* 



XR/W #secs addr blk flag 

^^Extended read-write. The same as R/W except that XR/W accepts a sector 
count for multiple sector reads and writes. Starting at address addr and 
block blk, read (flag true) or write (flag false) #secs sectors from or to 
disk, 

SMOVE org des count 

Move count screens from screen # org to screen # dest* 

The primary disk rearranging v^ord^ also used for moving sequences of screens 
between disks. This is a smart routine that uses all memory available below 
the current GR. -generated display list, with prompts for verification and 
disk swap if desired. See valFORTH Editor Ll documentation for further detail 

LOADS start count -~ 

Loads count screens starting from screen # start. This word is used if you 
want to use words that are not chained together by 's. It will stop 
loading if a CONSOLE button is held down when the routine finishes loading 
its present screen, 

THRU start finish start count 

Converts two range numbers to a start-count format. Example: 

120 130 THRU PLISTS 
will print screens 120 thru 130. 
SEC fi 

Provides an n second delay. Uses a tuned do-loop. 
r4SEC n 

Provides an n millisecond delay, (approx) 
Uses a tuned do-loop, 

H->L n b 

Moves the high byte of n to the low byte and zero's the high byte, creating 
b. Machine code. 

L->H nl n2 

Moves the low byte of nl to the high byte and zeroes the 1 ow byte, creating 
n2. Machine code. 

H/L nl nl(hi) nl(lo) 

Split top of stack into two stack items: New top of stack is low byte of old 

top of stack. New second on stack is old top of stack with low byte zeroed. 

Example: HEX 1234 H/L .S <cr> 1200 0034 
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BIT b n 

Creates a number n that has only its bth bit set. The bits are numbered 0-1 
with zero the least significant. Machine code. 

?BIT n b f 

Leaves a true flag if the bth bit of n is set. Otherwise leaves a false fla 
TBIT nl b n2 

Toggles the bth bit of nl, making n2. 

SBIT nl b n2 

Sets the bth bit of nU making n2. 

RBIT nl b nZ 

Resets the bth bit of nl, making n2, 
STICK n horiz vert 

Reads the nth stick (0-3) and resolves the setting into horizontal and 
vertical parts, with values from -1 to +L -1 means up and to the left, 

PADDLE nl n2 

Reads the nlth paddle (0-7) and returns its value n2. Machine code, 
ATTRACT f 

If the flag is true, the attract mode is initiated. If the flag is false, 
the attract mode is terminated, 

NXTATR — 

If the system is in the attract mode, this command cycles to the next color 
setup in the attract sequence. Disturbs the timer looked at by 16TIME. 

HLDATR -~ 

If the system is in attract mode, zeroes fast byte of the system timer so 
that attract won't cycle to next color setup for at least four seconds 
or until system timer is changed, say by NXTATR. Disturbs the tinier looked 
at by 16TIME. 

16TIME n 

Returns a 16 bit timer reading from the system clock at locations 19 and 20, 
decimal. This clock is updated 60 times per second^ with the fast byte in 
20. Machine code, not fooled by carry, 

8RND b 

Leaves one random byte from the internal hardware. Machine code» 
15RND — n 

Leaves one random v/ord from the internal hardware. Machine code with 20 
cycle extra delay for rerandom1zation« 

CHOOSE ul u2 

Randomly choose an unsigned number u2 which is less than uL 
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CSHUFL adclr n 

Randomly rearrange n bytes in niemory, starting at address adclr. 
Pronounced ''c-shuff1e J' 

SHUFL addr n 

Randomly rearrange n v/ords in memory^ starting at address addr. Pronounced 
''shuffle,'' SHUFL may also be used to shuffle items directly on the stack by 
doing SP@ n SHUFL. 

H * p 

See DEBUG Glossary » 
A* addr ~- 

Print the ASCII character at addr, or If not printable^ print a periode 
(Used by DUffO- 

DUMP addr n 

Starting at addr, dump at least n bytes (even multiple of 8) as ASCII and 
hex. Hay be exited early by pressing a CONSOLE button* 

BLKOP system use only 

BXOR addr count b 

Starting at address addr^ for count bytes, perform bit-wise exclusive or 
with byte b at each address« Useful for toggling an area of display memory 
to inverse video or a different color, and for other purposes* For instance 
in 0 GR. , do 

DCX 88 @ 280 128 BXOR 
Then do Shift-Clear to clear the screen. Pronounced ''block ex or/' 



BAND addr count b 

Starting at address addr, for count bytes, perform bit-wise AMD with byte b 
at each address « Applications similar to BXOR. 
Pronounced ''block and J' 

BOR addr count b - 

Starting at address addr, for count bytes, perform bit-wise or with byte b 
at each address. Applications similar to BXOR. 
Pronounced ''block or J' 

STRIG n flag 

Reads the button of joystick n (0-3). Leaves a true flag if the button is 
pressed, a false flag if it isn't* 

PTRIG n flag 

Reads the button of paddle n (0-7), Leaves a true flag if the button is 
pressed^ a false flag if it isn't. 
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TRANSIENTS 



One of the more annoying parts about coniiiion releases of FORTH concerns the 
FORTH machine code assemblers. On the positive side^ FORTH-based assemblers 
can be extraordinarily smart and easy to use interact! vely^ and can compile 
on the fly as you type, rather than in multiple-pass fashion» (The 6502 
assembler provided vn'th val FORTH is a good example of a smart, structured, 
FORTH-based assembler^ On the other hand, since the assembler loads into 
the dictonary one usually sacrifices between 3 and 4K of memory on a utility 
that is only a compilation aid, and is not used during execution* With the 
utility described below, however, you can use the assembler and then remove 
it from the dictionary v^ihen you're finished with it* 

In the directory of the Utilities/Editor disk (screen 170) you will find a 
heading of Transients. Loading this screen brings in three words: TR.ANSIENT, 
PERMANENT, and DISPOSE, and a few variables. It also defines a new area of 
memory called the Transient area. This area is used to load utilities like 
the assembler, certain parts of case statements, and similar constructs, that 
have one characteristic in common: They have compile-time behavior only, cind 
are not used at run-time. An example will help make clear the sequence of 
operations. You may recall that on the val FORTH disk, in order to load float- 
ing point words you needed the assembler» Let's make a disk that has floating 
point but no assembler: 

* Boot your val FORTH disk. It can be the bare system, or your normal program 
ing disk if it doesn't have the assembler already in it, 

^ Insert your Utilities/Editor disk, find the Transient section in the 
directory, and load it. 

^ Do MTB (EMPTY-BUFFERS) and swap in your val FORTH disk, (It is a VERY good 
idea to get into the habit of doing MTB before swapping disks,) Find the 
assembler in the directory, but before you load it, do TRANSIENT to cause it 
to be loaded into the transient dictionary area, in high memory. Now go ahead 
and load the assembler. When it is loaded, do PERMANENT so that the next 
entries will go into the permanent dictionary area, which is back where you 
started. 

^ Now find and load the floating point words. 

Finally, do DISPOSE to pinch off the links that tie the transient area 
(with the assembler in it) to the permanent dictionary, with the floating 
point words in it. Do a VLIST or two to prove it to yourself. (Note that 
there are about a half-dozen words in the assembler vocabulary in the kernel. 
These were in the dictionary on boot up and are not affected by DISPOSE.) 

You can derive great benefit from the simple recipe above, and if you study 
the Transient code a bit^ you may learn even more. We offer several comments: 
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* In the case of the above recipe, you didn't actually have to do PERMANENT 
and TRANSIENT because the assembler source code checks at the front to see if 
TRANSIENT exists, and does it if so« At the end if checks to see if PERMANENT 
exists, and does it if so. This conditional execution is accomplished with 
the val FORTH construct 

'{ )( ) 

which 1s described 1n val FORTH documentation. Take a look at the assembler 
source code to see how this is done, 

^ If you want to do assembly on more than one section of code, you needn't 
DISPOSE until you really finished with the assembler; or, if you have DISPOSED 
of the assembler, you can bring it back in later without harm, by the same 
method. You can also code high-level definitions, and then more assembly 
code, and so on, and only do DISPOSE when you were finished. Be sure to do 
DISPOSE before SAVE or AUTO, however^ because either your system will crash 
or your SAVE'd or AUTO'd program won't work. 

The situation is slightly different with ^^case" words, since if you bring 
them in more than once youHl get duplicate names on the run-time v^ords like 
(SEL), (CASE) and CASE:, which uses extra space and defeats the purpose of 
Transients. 

* If you use the Transient structures for otherpurposes^ remember only to 
send code that is not used at run-tim.e to the transient area» As an example 
of this distinction, look at the code for the ''case'* words on the val FORTH 
disk. Mote that the '{ )( ) construct is again used, but that some of 
the parts of the case constructs, for instance (SEL), stay in the permanent 
dictionary. That is because (SEL) actually ends up in the compiled code, 
while SEL does not. 

* Look at the beginning of the code for the Transient structures » and notice 
that the Transient area has been set up 4000 bytes below the display list. 
(The byte just below the display list in normal modes is pointed to by memory 
location 741 decimal, courtesy of the Atari OS.) This is usually a good place 
if only the 0 Graphics mode is used» (8 GR* , for example, will over-write 
this area, crashing the system,) After DISPOSE is executed, this area Is 
freed for other purposes. If you want to use a different area for Transients, 
just substitute your address into the source code on the appropriate screen. 
Remember that you must leave enough room for whatever will go into the Transient 
dictionary, and that NOTHING else must write to the area until you have cleared 
it out with DISPOSE, (This includes SMOVE, DISKCOPYl, DISKC0PY2. etc/) 

^^^^^^ ^QJ£ icic-k-kic hiQj£ -kk-k-k-k [\|OTE NOTE NOTE 

In the above example^ 4000 bytes have been set aside for the Transient area 
just below the 0 GR, display list. This amount of memory will generally hold 
the assembler and some case statement compiling words. REMEMBER that if you 
have relocated the buffers (see the section on Relocating Buffers) to this 
area as welU you will have a collision^ and a crashed system in short order. 

To cure this, simply locate the Transient area 2113 bytes lower in memory so 
that there will be no overlap. 

■k'k^^-k-k f^OTE NOTE NOTE ^"^"^^^ NOTE MOTE 
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EDITOR/UTILITIES SUPPLIED SOURCE 



Bcv^een: 36 Screen: 39 

0 ( Trarisients : setup ) 0 

1 BPlSE & DCX 1 



3 HERE 



1 



c 

v.. 



rr 



e 741 IB 4000 - DP ! 6 

7 i SUGGESTED PLACEMENT OF TflREfi ) 7 

a a 

9 9 

10 HERE CONSTANT TftREft 10 

11 0 VflRIflBLE TP 11 

12 1 VfiRIflBLE TPFLAG 12 

13 VARIABLE OLDDP 13 

1 4 1 4 

15 ==> 15 



Screen : 37 Screen : 40 

0 ( Xsients: TRANSIENT PERMANENT ) 0 



! 4 

5 



1 

TRANSIENT ( — ) 2 

TPFLhG & NOT 5 

4, IF HERE OLDDP ! TP @ DP 

5 1 TPFLAG ! 

6 ENDIF ; 6 

7 7 
a : PERMANENT ( — ) 8 
9 TPFLAG @ 9 

10 IF HERE TP i OLDDP i? DP ! 10 

11 0 TPFLAG ! 11 

12 ENDIF ; 12 

1 3 1 3 

14 14 

15 --> 15 



Screen: 33 Screen: 41 

0 ( Transients: DISPOSE ) 0 

1 : DISPOSE PERMANENT 1 

2 CR Disposing..." VOC-LINK 2 

3 BEGIN DUP 0 53279 Ci 3 

4 BEGIN I? DUP TAREA U< 4 

5 UNTIL DUP ROT ! DUP 0= 5 

6 UNTIL DROP VOC-LINK @ 6 

7 BEGIN DUP 4 - 7 
a BEGIN DUP 0 53279 C! a 
9 BEGIN PFA LFA & DUP TAREA U< 9 

10 UNTIL 10 

11 DUP ROT PFA LFA ! DUP 0= 11 

12 UNTIL DROP & DUP 0= 12 

13 UNTIL DROP [COMPILED FORTH 13 

14 DEFINITIONS . " Done" CR ; 14 

15 PERMANENT BASE i 15 



Screen: 4£ 

0 i Utils: CflRRfiY flRRPlY ) 

1 BfiSE I? HEX 

£ s CORRfiY ( cccc, n — ) 

3 CREATE SMUDGE ( cccc: n — a ) 

4 ALLOT 

5 ;CODE Cfl C, Cfl C, 18 C, 

6 05 C, W C, 69 C, 02 C, 95 C, 

7 iZi0 C, 98 C, 65 C, W 1+ C, 
a 95 C, 01 C, 4C C, 

9 ' + ( CFh IB ) , C; 

10 

1 1 : ORRflV ( cccc, n — ) 

1£ CREATE SMUDGE ( cccc: n — a ) 

13 a* ALLOT 

14 ;CDDE 16 C, 00 C, 36 C, 01 C, 

15 4C C, ' CARRAY 08 + , C ; ==> 



Screen: 45 

0 ( Utils: XC! X! ' ) 

1 

£ : XC! ( n0. . . nrn cnt addr — ) 

3 OVER 1~ + >R 0 

4 DO J I - Ci 

5 LOOP R> DROP ; 
6 

7 : X ! ( n0, . . nrn cnt addr — ) 

8 OVER 1- £* +• >R 0 

9 DO J I Z* - ! 
10 LOOP R> DROP ; 
11 

12 ( Caution: Remember limitation 

13 ( on stack sire of 30 values 

14 ( because of OS conflict. ) 

15 — > 



Screen: 43 
0 ( Utils 



5 
6 



8 

9 

10 

1 1 

l u ll 

1 -Jj 

14 
15 



CTABLE TABLE 



i 

X 



CTftBLE ( cccc, — 

CREftTE SMUDGE ( cccc: n 
5 CODE 

AC C, ' CflRROY 08 4- , C; 



— a ) 



TABLE ( cccc, — 

CREATE SMUDGE ( ccccs n 
!i CODci 

4C C, ' ARRflY m -i- , C; 



a ) 



Screen : 46 

0 ( Utils: CVECTOR VECTOR 



4 

6 

8 
9 

10 
1 1 

13 
14 
15 



: CVECTOR ( cccc, cnt - — ) 

CREATE SMUDGE ( cccc: n — a ) 
HERE OVER ALLOT XC I 
5 CODE 

4C C, ' CARRAY 08 + , C; 



VECTOR ( cccc, cnt — 

CREATE SMUDGE ( cccc: n — a 
HERE OVER £;* ALLOT X! 
;CODE 

4C C, ' ARRAY 0A + , 



BASE 



1 



) 
) 



Screen : 44 
iZi < Utils: 



1 



4 

6 
7 
8 
9 
10 
1 1 
12 
13 
14 
15 



^CARRAY 2ARRAY 



2CARRAY ( cccc, n n - 

<BUILDS ( cccc: n n - 

SWAP DUP , * ALLOT 
DOES> 

DUP > R I? * + R> +2+ ; 

2ARRAY ( cccc, n n - 

< BUILDS ( cccc: n n - 

SWAP DUP , * 2* ALLOT 
DOES) 

DUP > R I? * + 2* R> + £+ 



) 

) 

a ) 



Screen : 

0 
1 



47 



> 



3 
4 
5 
6 
7 

a 

9 

10 
1 1 

.1. I~. 

1 3 
14 
15 



Screen : 48 

0 ( Utile: HIDCHR 

1 BfiSE @ DCX 



NOKEY CURSOR) 



4 

f 

"7 



' ( CftSE ) ( £8 KLOAD ) 



HIDCHR 



10 

1 1 

14 

1 5 



65535 94 ! 



* 



8 : NOKEY 

9 £55 764 Ci 



X M 



CURSOR 

0= 75£ C! 

£8 EMIT £9 EMIT : 



( — ) 



( f 



Screen: u 
0 ( Utils: 



4 
5 
6 
7 

a 

9 

10 

11 

1£ 
1 3 
14 
15 



Y/N -RETURN RETURN 



1 

O N 



Y/N 

<Y/N> " -Y/N DUP 
IF 89 ELSE 78 ENDIF 
EMIT SPACE : 



( — f ) 



-RETURN 
BEGIN KEY 155 

RETURN 

<RETURN> " 



UNTIL : 



RETURN 



BASE ! 



- ; 



Screen 



49 



Screen : 5£ 



0 


( Ut i 1 s : 


INKEY* 








) 


0 


( Screen code 


corfversi on 


1 


DCX 














1 












■~J 
U— 


: (INKEY*) 






c 




) 




BASE 1? HEX 










— I 


70£ C! 


NOKEY ; 










3 




























4 


CODE >BSCD 








( a a 


5 


: INKEY* 










- C 


) 


5 


A9 C, 03 


r 


£0 


r 


SETUP 


6 


764 C@ 














6 


HERE C4 


c, 




c, 


D0 C, 


7 


COND 














7 


WW w <| w 


r 


10 




03 


8 


0 0 — 

1^ Wv' 1— "*~ 


( < 


1£8 


(INKEY*) 


0 


> > 




8 


next' , 




Bl 


c 




9 


191 > 


< < 


0 > > 










9 


£9 C, 7F 


c. 


C9 






10 


188 = 


< < 


0 >> 










10 


0D C, C9 


c, 


£0 


(3 If 


B0 C, 


11 


1 c'A ^ 


< < 


54 


(INKEY*) 


0 


> > 




1 1 


1 fl 69 


c, 


40 


c, 


4 C ^ 


1 1:1' 


60 = 


< < 


0 


( INKEY*) 


0 


> > 




1 c! 


£ ftLLOT 38 


r 

V-/ ^ 


E9 




£0 C, 


.1. 


39 = 


< < 


0 > > 












BWPP 1 91 




C4 


c, 


63 C n 


14 


NOCOND 


KEY 












14 












15 


CONDEND 


« 










-> 


15 













r\ 

07 
4C 
48 



06 C, 

HERE 

HERE 



Screens 50 Screens 53 

0 ( Utils: -Y/N ) 0 ( Screen code conversion words ) 



1 

2 


: -Y/N 








< - 


- f ) 


1 
£ 


80 C, 11 


c, 


C-H- 


C, 


91 C, 


C4 C, 


— \ 


BEGIN KEY 












3 


C8 C, D0 




D3 




E!& Of 




4 


COND 












4 


£ 6 d> i( C/ \ j 


c, 


4C 


c, 




C; 


5 


89 = < < 


1 


1 


> > 






5 














6 


78 = < < 


0 


1 


> > 






6 


CODE BSCD) 








( a a 


n — 


7 


NOCOND 












7 


A9 C, 03 


c, 


£0 


c, 


SETUP 




8 


0 












8 


HERE C4 


c, 




c, 


D0 C, 


07 C, 


9 


CONDEND 












9 


C 6 C 5 C j> 


c, 


10 


c, 


03 C, 


4C C, 


10 


UNTIL ; 












10 


NEXT , 




Bl 


c, 


uo u 


48 C, 


1 1 














11 


£9 C, 7F 


c, 


C9 


c, 


60 C, 


B0 C, 
















1 c! 


0D C, C9 


c, 


40 


c, 


B0 C, 


06 C, 


13 














1 3 


18 C- ^1 69 


c, 


£0 


c, 


4C C, 


HERE 


14 














14 


cl flL-LOT *:j8 


c, 


E9 


c, 


40 C, 


HERE 


15 














15 















Screen 



0 ( Screen code converBion words ) 



a 



5 



SWfiP ! 
8iZl C, 



91 C, 

11 C, 

DiZi C, 

C5 C, 



C4 C, 
D3 C, 
^ C ^9 



6S 

91 C, 



C4 C, 
C 7 C ^ 



8 

9 

10 

1 1 
1 c! 



1 

D 



l'='- 



>SCD 
SCD> 



SPe DUP 1 >BSCD ; 
SPi? DUP 1 BSCD> : 



BASE 



Screen : 



7 



6 
7 
8 
9 

10 

1 1 
12 



0 < Case statements: CASE 
1 

2 i CfiSEND 
DUP 6 = 
IF 

DROP COMPILE NOOP 
ELSE 

7 7PAIRS 
END IF 

HERE £■- @ OVER 1+ ! 
HERE OVER - 



14 
5 



5 - £/ SWAP C! 



n 
•J 



IMMEDIATE 



13 ' ( PERMANENT PERMANENT ) ( 



\ 

/ 



Screen: 55 Screen: 58 

0 0 ( Case statements: SEL 

1 1 

P e M PERMftNENT PERMhiMENT ) ( ) 



(SEL) 

4 R 1+ DUP £+ DUP R C9 

5 £*£*• + R> DROP DUP >R SWAP 

6 DO I § 3 PICK = 

7 7 IF I 2+ SWAP DROP LEAVE 

a " a ENDIF 



H 

5 

6 



9 



9 4 /LOOP SWAP DROP SEX ; 



10 10 

11 11 ' ( TRANSIENT TRANSIENT )( ) 

12 12 : SEL 7C0MP 

13 13 7L0ADING COMPILE (SEL) HERE 

14 14 0 C, COMPILE NOOP CCOMPILEl C 

15 15 8 ; IMMEDIATE 



Screen: 5& 

0 ( Case Statements: CASE ) 

1 BASE @ DCX 

£ ' ( PERMANENT PERMANENT ) ( ) 

■ji) : \ C/i^^SE y 

4 R C@ MIN -1 MAX £* 

5 R 3 + + §EX 

6 R Ce 2* 5 + R> + > R ; 

7 ' ( TRANSIENT TRANSIENT ) ( ) 
0 : C/H^SE 

9 ?COMP COMPILE (CASE) 

10 HERE 0 C, 

11 COMPILE NOOP 6 ; IMMEDIATE 

1 c! 

13 : NOCASE 

14 & 7PAIRS 7 ; IMMEDIATE 

15 ==> 



Screen : 59 

0 ( Case statements: SEL ) 
1 

£ : NOSEL 

3 8 7PAIRS [COMPILE] ' CFA 

4 OVER 1+ ! 8 ; IMMEDIATE 
5 

6 : -> 

7 SWAP 8 7 PA IRS , DUP C& 1+ 

8 OVER C! [COMPILED ' 

9 CFA , a ; IMMEDIATE 
10 

11 : SELEND 

1£ 8 7PAIRS 

13 DROP [COMPILED 1 ; IMMEDIATE 

14 ' ( PERMANENT PERMANENT ) ( ) 

15 — > 



Screen : 60 

0 ( Case statements: COND 

1 ' ( TRANSIENT TRANSIENT ) ( ) 
£ 5 COND 

0 COMPILE DUP ; IMMEDIATE 



> 



Screen 

0 

1 



6^ 



5 
6 
7 
8 

g 

10 
1 1 



1 
14 

1 U 



IF 



■ 

•J 



IMMEDIATE 



< < 

1+ [COMPILED 
COMPILE DROP 

> > 

[COMPILED ELSE COMPILE 

DUP ROT ; IMMEDIATE 



: NOCOND 

COMPILE 2DR0P 5 IMMEDIATE 
' ( PERMANENT PERMANENT ) ( ) ==> 



5 
& 
7 
S 
9 

10 

1 1 

1 c' 
X vi 

14 
15 



Screen : 



61 



14 
5 



COND 



0 ( Case statements: 
1 

P ' ( TRANSIENT TRANSIENT ) ( 



4 : CONDEND 
0 DO 

[COMPILED ENDIF 
LOOP ; 



6 
7 
8 

9 ' ( PERMANENT PERMANENT ) ( 

10 

1 1 

i d 
1 



IMMEDIATE 



> 



Screen : 64 

0 ( Val FORTH Video edito 
1 

£ BASE e DCX 



5 
6 
7 
8 
9 

10 

1 1 

1£ 

1 iJj 

14 

15 



XC! ) ( £1 KLOAD ) 
HIDCHR ) ( £4 KLOAD 
> BSCD ) ( £6 KLOAD ) 



Screen: 6£ 

0 ( Case statements: 



1 

o 

3 
4 
5 
6 
7 

a 

9 

10 
1 1 

1£ 
13 
14 
15 



CASE 



(Lr 5 £ ■ 

(BUILDS 

SMUDGE ! CSP 
[COMPILED D 

DOES) 

SWAP £* + i?EX 



M 

t 



BASE ! 



Screen : 

0 ( ValFORTH Video edito 

1 

£ 

3 

4 

ET 

6 
7 
8 
9 

10 
1 1 

IS 
13 
14 
15 



0 

I 



4 
5 



ValFuRTH Video editov 



V 1.1 ) 



VOCABULARY EDITOR IMMEDIATE 
EDITOR DEFINITIONS 



9 

1 

l£: 

13 

iA- 

^, ir:- 
.1. ,J 



0 VARIABLE 
0 VARIABLE 
0 VARIABLE 
0 VARIABLE 
0 VARIABLE 
0 VARIABLE 
0 VARIABLE 
0 VARIABLE 



XLOC 
YLOC 



?BUFSM 
7PADSM 
?ESC 
TBLK 



< 



INSRT ( 
LSTCHR ( 



r 

( 



X coord. 

Y coord- 
insert on? 
last key 
buf same? 
PAD same? 
coded char? 
top block 



Scr 
1 



een s 69 
( VaiFORTH Video editor 



5 



t> 

7 
8 
9 

10 

1 1 

1 c! 

13 
14 
15 



n 



UPCIJR 

CBLANK YLOC & 
1 - DUP 0< 
IF DROP 15 ENDIF 
YLOC 1 CSHOW s 



DNCUR 

CBLANK YLOC § 
1 +■ DUP 15 > 
IF DROP 0 ENDIF 
YLOC ! CSHOW : 



V'' 1 B 1 



) 



\ 
f 



c:- 



; ere en : 



67 



-7 



0 ( Va 1 FORTH V i d eo ed iter V 1 . 1 ) 
1 

2 0 VARIABLE LNFLG ( oops flag ) 



H ARRAY UPSTAT ( update map ) 
+ 15 CONSTANT 15 

32 CONSTANT 3£ 



D 

6 



14 

1 cr 

J. uJ 



lu='S CONSTANT 1£S 



7 5 3£ * CONSTANT BLEN 
S 



g s LMOVE 32 CMOVE ; 
10 : BOL 83 YLOC § 1+ 32 * + : 



: SBL 88 i? 544 + 



i u r.J 

J. M 



PAD 544 + ; 



13 : PBLL PBL BLEN +■ 32 



M 



!5CR 38 e 32 + PAD 512 BSCD> 



\ 
/ 



Screen : 7© 

0 ( VaiFORTH Video editor Vul ) 
1 

£ : LFCUR ( — ) 

3 CBLANK XLOC @ 

4 1 - DUP 0< (AT L-SIDE?) 
IF DROP 31 ENDIF ( FIX IF SO ) 



cr 



6 XLOC ' CSHOW ; 
7 



1 



8 : RTCUR 

9 CBLANK XLOC @ 

10 1+ DUP 31 ) ( AT R-SIDE?) 

11 IF DROP 0 ENDIF ( FIX IF SO ) 

12 XLOC ! CSHOW ; 

i ». J 

14 : EDMRK 



1 YLOC e 4 / UPSTAT ! : 



Screen 



6S 



0 ( VaiFORTH Video editor 
1 



4 

5 

to 

8 
3 

10 

1 1 
1 2 

1 •7. 

14 
.1 5 



VI. 1 ) 



CURLOC 

BOL XLOC © + 
CSHOW 

CURLOC DUP 
C@ 128 OR 
SWAP C ; 



CBLANK 
CURLOC DUP 
Ce 127 AND 
SWAP C! ; 



9 



( — ) 
( SCR ADDR ) 

( — ) 
GET SCR ADDR ) 
INVERSE CHAR ) 
STORE ON SCR ) 



( 

( 



BET SCR ADDR 
STRIP MSB ) 
STORE IT ) 



Screen: 71 

0 ( VaiFORTH Video editor 



VI, 1 ) 



4 

5 
6 
7 
8 
9 

10 

1 1 

1 c! 
1 "7 

14 
15 



INTGL 

INSRT § 0= 
INSRT ! ; 

NXTLN 

CBLANK 0 XLOC 
CSHOW DNCUR : 



CL REOL 

CBLANK ! SCR 

1 LNFLG ! CURLOC 

32 XLOC e - 

ERASE CSHOW 

EDMRK ; 



( — ) 
( TOGGLE THE ) 
( INSRT FLAG ) 



( — ) 



) 



( CLEAR ) 
( TO END ) 
( OF LINE) 



S 



) 



ocreen : 72 

0 ( ValFORTH Video editor 



VI. 1 ) 



Screen : 75 

0 ( ValFORTH Video editor 



Vi. 1 ) 



1 

p • 


1 HMCUR 




( — 


) 


1 


1 LNDEL 




( 


\ 


3 


CBLflNK 0 XLOC ! 








3 


CBLfiNK 3 LNFLG ! ! SCR 








4 


0 YLOC ! CSHOW ; 








4 


4 YLOC L? 4 / 








cr 

w 










5 


DO 1 I UPSTflT ! LOOP 








£ : 


i BYT I MS CBLONK 




( — 


) 


6 


YLOC e 15 < 








7 


XLOC I? 31 < 


( 


SPREAD LM 


) 


7 


IF BOL 


K 


FROM 


\ 


S 


IF 








8 


DUP 3£ + SWAP 


( 


TO 


) 


9 


CURLOC DUP 1+ 


( 


FROM, TO ) 




9 


15 YLOC @ - 3£ 


( 


# c:;h 




10 


31 XLOC & - 


/ 

\ 


# CHARS ) 




10 


CMOVE 








1 1 


<CMOVE 


( 


MOVE IT ) 




11 


ENDIF 








12 


ENDIF 








1£ 


BOL 15 YLOC 1? - 








1 3 


0 CURLOC C! 


( 


CLEAR OLD 


) 


13 


3£ * + 3£ ERASE 








14 


CSHOW EDMRK ; 


( 


CHflRflCTER 


) 


14 


CSHOW EDMRK ; 








15 






•MM M**1 


> 


15 











Screen: 73 

0 ( ValFORTH Video editor 



3 



VI. 1 ) 



Screen : 76 

0 < ValFORTH Video editor 



VI. 1 ) 



1 


1 BYTDEL 




( — ) 


1 

1^ 1 


! BFSHW 




( — ) 


3 


CBLANK 


( 


CLOSE LINE) 


—v 


PBLL 1£8 - 


( F 


, 1 ) 


4 


XLOC C- 31 < 






4 


SBL 160 CMOVE ; 


( # 


MOVE ) 


5 


IF 






5 








6 


CURLOC DUP 


( 


FROMADDR ) 


& : 


! BFROT 




( — ) 


7 


1+ SWAP 


< 


TO ADDR ) 


7 


PBL DUP 






8 


31 XLOC - 


< 


# CHARS ) 


a 


BLEN + LMOVE 






9 


CMOVE 


( 


MOVE IT ) 


9 


PBL DUP 3£ + 






10 


ENDIF 






10 


SWAP BLEN 3£ - 






11 


0 CURLOC 


( 


BLANK OUT ) 


1 1 


CMOVE PBLL 3£ + 






1£ 


31 XLOC & - + C 


( 


CHAR AT ) 




PBLL LMOVE 






13 


CSHOW EDMRK ; 


( 


END OF LN ) 


13 


BFSHW ; 






1 4 








14 








15 






— > 


15 









Screen: 74 

0 < ValFORTH Video editor VI. 1 ) 

1 

£ : LNINS ( — ) 

3 CBLANK £ LNFLG ! !SCR 

4 4 YLOC @ 4 / 

5 DO 1 I UPSTAT ! LOOP 

6 YLOC @ 15 < 

7 IF 

8 BOL DUP 3£ + 

9 15 YLOC e - 3£ * 
10 <CMOVE 

J 11 ENDIF 

1£ BOL 3£ ERASE 

13 CSHOW EDMRK ; 
14 

15 ==> 



Screen : 77 

0 < ValFORTH Video editor VI. 1 ) 



1 






o « 


1 <BFROT 


( — ) 


3 


PBLL DUP 




4 


3£ + LMOVE 




5 


PBL DUP 3£ + 




6 


BLEN 3£ - <CMOVE 




7 


PBL DUP BLEN + 




S 


SWAP LMOVE 




9 


BFSHW ; 




10 






1 1 : 


! BFCLR 


( — ) 




PBLL 3£ ERASE 




1 3 


<BFROT ; 




14 






15 







bcreeri : 78 

0 ( Val FORTH Video editor 



1 



4 



6 

/ 

6 

g 
i 1 

13 
14 



Vl„ 1 ) 



BFCPY 

CBLflNK BFROT 
BDL PBLL 
LMOVE BFSHW 
CSHGW : 



< — ) 
( BRING LN ) 
( DOWN TO ) 
( BUFFER & ) 
< ROTftTE ) 



>BFNXT BFCPY NXTLN ; 
>BFL.N BFCPY LNDEL 



( - 



) 
) 



BFL!M> 

LNINS PBLL 
BOL LMOVE 
CSHOW < BFROT ; ( BUFFER ) 



( - 

( TAKE LINE) 
UP FROM ) 



4 



Screen : SI 

0 ( Val FORTH Video editor 
1 

£ : ORROW 
CBLftNK 

SB I? 541 + DUP I? 
COND 

3341 = 
7453 = 
NOCDND 



5 
6 
7 
8 



10 
11 

12 
i. i-> 
14 

15 



< < 30 7453 > > 

< < 00 0000 > > 



30 



41 



CONDEND 
3 PICK ! 
SWOP £+ C! 
1 3 UPSTflT 
CSHOW ; 



VI. 1 



-> 



VI. 1 ) 



) 



Screen: 79 

0 ( ValFORTH Video editor 
1 

e : BFRPL ( - 

3 CBLftNK 

4 !SCR 4 LNFLG i ( TAKE LINE ) 

5 PBLL BOL LMOVE ( UP TO SCR ) 

6 < BFROT CSHOW ( & ROTATE ) 

7 EDMRK ; 
8 

g : TftB ( — ) 

10 CBLflNK XLOC § DUP 

11 31 = IF DROP -1 ENDIF 
1£ 4 + 4 / 4 * DUP 30 > 

13 IF DROP 31 ENDIF 

14 XLOC ! CSHOW ; 

15 — > 



Screen : 8£ 

0 ( ValFORTH Video editor VI. 1 
1 

£ : OOPS ( — 

3 LNFLG I? 

4 IF 

5 CBLflNK 

6 PAD 88 1? 3£ + 51£ > BSCD 

7 CSHOW 

8 0 LNFLG ! 

9 ENDIF 

10 

11 
1£ 
1 3 
14 



15 



\ 



Screen : 80 

0 < ValFORTH Video editor VI. 1 ) 
1 

£ : RUB ( — ) 

3 XLOC iJ 0= NOT ( ON L-EDGE? ) 

4 IF 

5 LFCUR ( RUB IF NOT ) 

6 0 CURLOC C! 

7 CSHOW EDMRK 

8 ENDIF 

9 INSRT e 

10 IF 

1 1 BYTDEL 
1£ ENDIF ; 
13 

14 

15 ==> 



Screen : 83 

0 ( ValFORTH Video editor VI. 1 ) 



1 




L... ■ 


: SPLIT 


3 


YLOC 15 <> 


4 


IF 


5 


CBLflNK 


6 


LNINS 


7 


BOL DUP 3£ + SWAP 


B 


XLOC e CMOVE 


9 


BOL 3£ + 


10 


XLOC 1? ERASE 


11 


CSHOW 


1 c! 


ENDIF ; 


13 




14 




15 





5 
6 
7 
8 
9 

iizi 
1 1 

12 

1 J 
X \-:> 

14 



BSCD> 



Screen s 64 

0 ( Val FORTH Video editor 

i 

a : SCRSV 

88 & 3£ + PAD 512 
4 0 
DO 

I UPSTflT & 
0 I UPSTAT ! 
IF 

PAD 128 I * + 
TBLK & I + BLOCK 
128 CMOVE UPDATE 
END IF 

LOOP 

0 INBRT ! 
0 XLOC ! 0 YLOC ! 



VI. 1 ) 



( — ) 



Screen : 87 

0 ( Val FORTH Video editor 
1 

2 : PRVSCR -1 NUSCR ; 



CT 



•i fzr 

1 O 



1 d' 

13 
14 

5 



NXTSCR 1 NWSCR 



6 : SPLCHR 1 ?ESC I 
7 

8 : EXIT 

9 HMCUR 19 LSTCHR I 

10 

11 : EDTABT 

0 UPSTAT a ERASE 
EXIT : 



VI 



U 1 1 

If J, 



Scr^een 



0 ( Val FORTH Video editor 



VI. 1 ) 



Scr^een : 88 

0 ( Val FORTH Video editor 



VI. 1 ) 



1 








1 












; SCRGT 


( 






! PTCHR 






( — ) 


3 


4 0 








INSRT @ EDMRK 








4 


DO 






4 


IF BYTItMS ENDIF 








5 


TBLK I? 






5 


LSTCHR @ 127 AND 










I + BLOCK 






6 


DUP LSTCHR i 








7 


PAD 12S I * + 






7 


>SCD CURLDC C! 








a 


128 CMOVE 






8 


RTCUR XLOC e 0= 








9 


LOOP 






9 


IF DNCUR ENDIF 








10 


PAD 88 & 32 + 






10 


0 ?ESC ! CSHOW ; 








1 1 


512 >BSCD ; 






11 










1 










! CONTROL 




( 


n -— • ) 


■s -? 








13 


SEL 19 -> EXIT 


17 


-> 


EDTABT 


14 








14 


28 -> UPCUR 


29 


-> 


DNCUR 


15 






— > 


15 











Screen : 86 



Screen 



89 



0 


< ValFORTH Video editor VI. 1 


) 


0 


( ValFORTH 


Video editor" 




VI. 1 ) 


1 


: NWSCR ( -1/0/1 — 


) 


1 

o 


30 


-> 


LFCUR 


-■ i 




RTCUR 




CBLANK DUP 




3 


1 c'& 


-> 


RUB 


1£7 




TAB 


4 


IF SCRSV ENDIF 2* 2* 




4 


9 


-> 


I NT6L 


■( ETC- 


-> 


NXTLN 


5 


TBLK 1? + 0 MAX TBLK i SCRGT 




5 


uj Xmi 


-> 


BYT INS 


254 


\ 

/ 


BYTDEL 


6 


TBLK e 8 /MOD 




6 


157 


-> 


LNINS 


156 


-> 


LNDEL 


7 


DUP <ROT SCR ! 




7 


18 


-> 


BFROT 


£ 




<BFROT 


8 


IF 44 ELSE 53 ENDIF 




8 


— i. 


-> 


BFCL R 


11 


-> 


>BFNXT 


9 


?1K NOT 




9 


20 


-> 


>BFLN 


6 


-> 


BFLN) 


10 


IF 




10 


16 


_\ 


PRVSCR 


14 


_\ 
/ 


NXTSCR 


11 


44 = SWAP £* + DUP SCR ! 0 




11 


27 


-> 


SPLCHR 


8 




CL RE. GL. 


1 c! 


END I F 




1 c! 


1 


-} 


ARROW 


1 


~> 


BFRPL 


13 


88 e 17 + C! 






15 


_v 

J 


OOPS 




-> 


SPLIT 


14 


0 84 C! 11 85 ! 1 752 C! 




1 4 


NOSEL 


PTCHR 








15 


. 2 SPACES CSHOW : 


> 


i 5 


SELEND 


n 








— > 



6 

/ 
8 
9 

10 

1 i 
1 

14 



VI. 1 ) 



) 



0 ( Val FORTH Video editor 
1 

£ : (V) ( TBLK 

DECIMAL 

DUP BLOCK DROP TBLK ! 
1 PFLfiG ! 0 GR. 1 752 C! CLS 
1 559 Ci? £52 AND OR 559 C! 
11£' 560 !? 6 + C! 
112 5&0 e £3 + C! 
- " Screer. #" 11. SPACES 
. " #Bufs: " BLEN 3£ / . HIDCHR 
0 UPSTAT 8 ERASE 0 NWSCR 
PAD 7PADSM & OVER ?PADSM ! = 
PBL & 7BUFSM i? = AND NOT 
IF PBL BLEN ERASE END IF 



1 



Screen: 93 

0 ( Val FORTH Video editor 



1 



5 
6 
7 
8 
9 
10 
11 
1 c! 

1 J 

14 
15 



VI 



J. 

3 

N a. 



L 

SCR & DUP 1+ 

B/SCR * SWAP B/SCR «• 

EDITOR TBLK @ DUP <ROT 

<= (ROT > AND 

IF 

EDITOR TBLK i? 
PI cc 

L_ L_ W Lmm 

SCR I? B/SCR * 
ENDIF 

EDITOR (V) : 



> 



1 

"12' 

3 
4 
5 



f 

a 

9 

10 

1 1 

1£ 

1 vi' 

i 4 



•DUP 



Screen : 91 

0 K ValFORTH Video editor 
BFSHW 
BEGIN 

INKEY* DUP LSTCHR i 
IF 

?ESC I? 

IF DROP PTCHR 0 LSTCHR 
ELSE CONTROL ENDIF 

ELSE 

INSRT @ 
IF 

CBLANK CSHOW 
ENDIF 
ENDIF 

LSTCHR § 19 = 
UNTIL 



VI. 1 ) 



15 



> 



Screen : 94 

0 ( ValFORTH Video editor 



1 



5 
6 
7 
8 

9 

10 

11 

1 c! 
13 
14 
15 



1 , t 



: CLEAR 

B/SCR * B/SCR 0+S 
DO 

FORTH I BLOCK 
B/BUF BLANKS UPDATE 
LOOP ; 

: COPY ( si 

B/SCR * OFFSET @ + 
SWAP B/SCR * B/SCR 0+S 
DO DUP FORTH I 

BLOCK £~ ! 
1+ UPDATE 
LOOP DROP ( FLUSH ) ; 



( s 



5c: 



Screen : 9£ 

0 ( ValFORTH Video editor VI. 1 ) 
1 

£ CBLANK SCRSV 0 767 C i 

3 £ 560 @ 6 + C! 

4 £ 560 e £3 + C! 

5 PBL © 7BUFSM ! 

6 £ 559 Ce £5£ AND OR 559 C! 

7 0 LNF-LG ! 0 75£ Ci CLS CR 

8 ." Last edit on screen # " 

9 SCR @ . CR CR 0 INSRT ! ; 
10 

11 FORTH DEFINITIONS 

1 d' 

13 : V ( s — ) 

14 1 MAX B/SCR * 

15 EDITOR (V) 5 ==> 



Screen : 95 

0 ( ValFORTH Video editor VI, 1 ) 
1 

£ : CLEARS ( s # — ) 

3 OVER >R O+S 

4 £DUP CR 

5 . " Clear from SCR " . CR 

6 . thru SCR " 1 -■ , Y/N 

7 IF 

9 FORTH I CLEAR 

10 LOOP 

11 ELSE 

1£ £DROP 

13 ENDIF 

14 R> SCR ! FLUSH ; 

1 ^ ) 



Screen: 96 Screen: 99 

0 ( ValFDRTH Video editor VI. 1 ) 0 

1 1 
£ : WHERE EDITOR ( n n ) £ 

3 OVER OVER 3 

4 DUP 6553£' AND 4 

5 SWAP OVER - 128 * 5 

6 ROT + 3£' /MOD , 6 

7 YLOC Ci 7 

8 2- 0 MAX XLOC C! 8 

9 1 INSRT I 9 

10 EDITOR (V) : 10 

11 11 
Ic: : #BUFS <; ^ — ) 1£ 

13 5 mX 320 MIN 3iE: * EDITOR 13 

14 ' BLEN ! 0 ?PftDSM ! ; 14 



15 ==> 1 



3 



1 -~' 

.5. I... 

1 ~: 



i '3 



IF 



Screen: 97 Screen: 100 

0 ( ValFORTH Video editor VI. 1 ) 0 
1 

2 : (LOO < sys ) 

BLK & , IN i? C, ; 3 



1 



•J 
1 



! LOCATOR ( f — ) 5 

6 IF 6 

7 L ' <LOC) CFA "J LITERAL 7 
a ELSE Q 
g C ' MODP CFA 1 LITERAL 9 

10 ENDIF 

11 ' CREATE ! ; H 

12 



1 



14 l'^ 



> 1 



cr 



Screen: 98 Screen: 101 

0 >; ValFORTH Video editor VI. 1 ) 0 

1 1 

£ : LOCATE £ 

3 [COMPILE:! ' DUP NFA 1- DUP 3 

4 2- e DUP 1439 U< SWAP 0# AND 4 



5 



6 SWAP DROP DUP C& 6 

7 SWAP 2- e WHERE £DROP 7 

8 ELSE 8 

9 CR . " Cannot locate" 9 

10 ' •; DCMPR DROP DCMPR 10 

11 ) ( 2DR0P CR ) 11 

12 ENDIF ; 1£ 

13 13 

14 1^ 

15 BASE i 1 



Screen: 102 Screen l' 105 





0 


1 


1 


•"'i 






3 






H 


4 




cr 






r~ 

b 


6 


7 


"7 


8 


a 


9 


g 


10 


10 


1 i 
X X 


1 1 


12 


1£ 


1 


13 


1 A- 


14 


1 b 


15 



Screens 10.i; Screen: 106 



0 


0 


< Hi- 


reso 1 ut i on text 


1 


1 








•"•i 
I,.., 

3 


BflBE 


1? DCX 


^> 
4 


4 


' < >SCD ) ( £6 KLOhD 




5 


' ( COND ) ( £8 KLDflD 


B 


6 






7 


7 


57544 


VftRIftBLE GCBfiS 


e 


8 


0 


VARIABLE GCPTR 


9 


9 


■"*« 
I— 


VARIABLE BCLFT 


10 


10 


39 


VARIABLE BCRGT 


1 1 


1 1 


0 


VARIABLE GMOD 


1 £ 


i O 


0 


VARIABLE GCCOL 


J, 


13 


0 


VARIABLE GCRQW 


14 


14 


1£0 


VARIABLE VMI# 


cr 

J. X-J 


15 







Scv-eens 104 Screens 107 



0 


0 


( Hi-v-es: GCR 


) 


1 


1 








o 


: GCR ( 


— ) 


3 


3 


1 6CR0W 1? + DUP £0 




4 


4 


703 CU MAX < 




cr 


5 


IF GCROW ! 




6 


6 


ELSE 




7 


7 


DROP 88 1? 3£0 0+S 




3 


8 


703 C§ 4 = 




9 


9 


IF 6400 ELSE 7680 END IF 


£DLIP 


10 


10 


+ 3£0 - >R CMOVE 




1 1 


11 


R> 3£0 ERASE 




1 cl 


1 c! 


END IF 




"* 

J. \.j 


1 .i 


GCROW e 3£0 * 




14 


14 


GCLFT © DUP GCCOL ! 




15 


15 


+ GCPTR ! ; 





E^creen: 108 

0 ( Hi -res: IIGCEMITI ) 
1 

2 s (GCEMIT) ( c — ) 

3 >SCD S * GCBflS § + 

4 GCPTR i? 83 & + 3£0 0+S 

5 DO 

6 DUP C@ GMOD C§ 

7 IF I Ci? OR END IF 

8 I Ci 1+ 

9 40 /LOOP 

10 DF^OP 1 GCPTR +! 

11 1 GCCOL & + DUP GCRGT & > 
IS IF DROP GCR 

13 ELSE GCCOL ! 

14 END IF i 

15 =-> 



Screen: 111 



0 


( Hi -res: GCEMIT GCTYP 


•'E 


1 


: GCEMIT < 


chr - 


3 


DUP 




4 


COND 




5 


£8 = < < DROP SUPER > 




6 


£9 = < < DROP BUB > 


> 


7 


30 = < < DROP GCBKS > 


\ 


8 


NOCOND <GCEMIT) 




9 


CONDEMD ; 




10 






1 1 


: GCTYPE < adr cc 




1 P 

1m** 


0 MfiX -DUP 




13 


IF O+S DO I Ct? 6CEt>UT 


LOOP 


14 


ELSE DROP 




15 


ENDIF ; 





Screens 109 
0 ( Hi -res 



1 



4 
5 



15 



GCBKS 
GCCOL i? GCLFT @ > 



GCBKS OSTRIKE GCINIT) 

< — ) 



-1 GCCOL +! 
-1 GCPTR +•! 
ENDIF ; 



( backspace ) 



6 
7 
8 

g : 

1 0 
1 1 

IE : GCINIT 

13 0 GCROW ! GCLFl 

14 GCCOL ! GCPTR 



OSTRIKE 

GMOD ! 



< f — ) 
( overstrike) 



( — ) 



& DUP 



1 



Screen 



1 1£ 
0 ( H i -res : 



CGC"3 GC" 



4 
5 
6 

/ 

t' 

8 
9 

10 
11 

1 c! 
1 3 
14 
15 



( GC " ) 

R COUNT DUP 1+ R> + > R 
GCTYPE ; 



GC" 

34 STATE @ 
IF 

COMPILE (GC") WORD 
HERE C@ 1+ HLLOT 
ELSE 

WORD HERE COUNT GCTYPE 
ENDIF ; IMMEDIOTE 



( 



Screen: 110 

0 ( Hi -res: GCPOS SUPER SUB 



1 



4 

cr 



6 
7 
8 
9 

10 
11 

1 tin! 

14 
15 



GCPOS ( col row 

£DUP 3£0 * + GCPTR ! 
GCROW i GCCOL i : 



) 

) 



SUPER ( 
VMI# I? MINUS GCPTR +! ; 



r 



>UB 

V!vll# & GCPTR +! ? 



— ) 



( — ) 



> 



Screen s 113 
0 ( Hi -res: 

X 



J, 



4 
5 
6 
7 
8 
9 

10 
1 1 

1 c! 

1 ul' 

14 
15 



GCSPflCELS 



M 
M 



(3 OS PACE 

BL GCEMIT ; 

GCSPftCES 
0 MfiX -DUP 
IF 0 

DO GCSPftCE 

LOOP 
ENDIF : 



GCD 



.—1 



n 



GCD. R 

> R SWAP OVER DftBS 
<# #S SIGN #> R> OVER 
GCSPftCES GCTYPE ; 



< d n 



— > 



Screen s .1 1 4 Screen s 117 

id ( Hi-ress GC. R GCn (3CLEN ) iZi 



1 



GC« R ( n n 

> R S->D R> GCD- R ; 



6 0 GC. R GCSPftCE ; 6 

7 7 
6 ?. GCLEM ( adr cnt — #chrB ) 8 
3 0 <ROT OH-S 9 

10 DO I c@ ea - 1 iZi 

11 CfiSE 0 0 0 11 
1£ NOCfiSE 1 1£ 

13 CftSEIMD + 13 

14 LGGP 5 14 

15 15 



Screen i 1 1 5 Screen : 1 1 S 

0 ( Hi -res: VMI GC„ $ ) 0 

1 

s ( n — ) £ 



5 



: GC^. ( adr- — ) 

COUNT GCTYPE ; 6 

7 

: GCLS ■: — ) a 

9 as & 9 

10 703 Ctf 4 - 10 

11 IF 6400 ELSE 76S0 ENDIF 11 

12 ERASE 1 

13 GCRGT e 0 GCPOS ; 1 

1 4 1 4 

15 GCINIT BfiSE ! 15 



Screen : 116 Screen : 113 

0 0 

1 1 



^~J 

4 



B 



9 



I— 



5 



6 
7 

B 8 



9 



10 10 

11 11 

It! 1 

IT ■( ~ 

14 14 

15 15 



Screen; IS® 

0 i Double: DVPlR DCON D- D> R DR> ) 

1 BftSE & DCX 



5 

6 



B 

g 

1 1 



1 - 



13 

1 vJ 



DVftRIflBLE 
VflRIflBLE , 

DCONSThNT 
<BUILDS , , 
LXjES) D@ ; 



i cccc 



adr ) 



^ Cmi!* C«» 



d ) 



DCOiMSTANT 0. 1. DCONSTflNT 1 



DMINUS D+ ; 



( d d 



d ) 



Scr 

0 ( Double: D> R DR> D, 



M+ 



1 



J) 



4 
5 



8 
9 
10 
1 1 

1 c! 

1 vIj 

14 
15 



D>R ( d " ) 

R> <ROT SWAP >R >R >R 5 

DR> ( — d ) 

R> R> R> SwftP ROT >R : 



D, ( d 



M+ 

S->D D+ ; 



( d Ti — d ) 



0 ( Double: D0= 



1 



5 
6 
7 

a 

10 

J. X 

1 £ 

13 
J. H 

-i r" 
.i. i.^ 



tl 



D0= 
OR 0= 

D--= 

D- D0^ 



D0 ( 

BWfiP DROP 0< 



D= D0< D< D> 



( d 



D < 

D - 00 < 



D> 

SSWflP D< 



( d d 



( d 



( d d 



( d d 



t — . 



) 

f ) 



f ) 



f ) 



f ) 



f ) 



Screen: 124 

0 ( Double: DU < 



1 



4 
5 
tl 
7 
8 
9 

10 

1 1 
1£ 



J) 



14 
15 



DU < 

DIJP 4 PICK XOR 0< 
IF 

SDROP D0< MOT 
ELSE 

D- D0< 
END IF ; 



BASE 



screens 1££ 
0 ( Double: DMIN DMftX 
1 

: DMIM < d d 

20VER E'OVER D> 
IF ' 

aswftp 

END I F 
2DR0P 5 



4 

5 
J" 

to 



7 
8 
9 

10 
11 



J. c. 



13 
14 

J. vJ 



DMflX 

20VER EOVER D< 
IF 

EBWAP 
END IF 
£DROP : 



( d d 



d ) 



d ) 



Screen : 

0 

1 



4 

cr 
.J 

6 
7 
8 
9 

10 
1 1 

1 c! 



1 



1 

14 



cr 



Screens 126 



5 



6 

t 

B 

5 



1 



1 



1 ,3 



1 4 



.1 wl 



Screen 



0 

1 



6 
7 
8 
9 
10 
1 1 

•I o 

J. 

13 
14 
1 5 



Screen s 1 £7 Screen 



0 


0 


1 


1 




L_ 
~\ 

A 




4 




5 






f 


& 


to 




-7 




a 


a 


;;y 


9 


liZi 


10 


1 1 


11 


_■. cz. 


1 c! 


... w' 


J. 1^ 


14 


14 


15 


15 



Screeri: 1£3 Screen 

0 0 



I 

>l. 


1 






\^ 




4 






cr 




vJ 


6 


6 


7 


7 


8 


8 


9 


9 


1 0 


10 


1 1 


1 1 


1£ 


1 lI' 


i 


13 


14 


14 




1 5 



screBn: .1. 

0 



I? ( Lit i 1 B 2 



1 


1 


£' 


»~» 
C 




3 


4 


4 


tr 

6 


cr 

6 


7 

B 
3 


7 
8 
9 


10 


liZi 


•f i 

X 


1 1 


,L ;,~ 


1 c! 


,r -—\ 

a. v.-» 


13 


1 4 


14 




1 cr 



Screevis l.<3 ' Screen; IviB 



0 


0 


( Lit i Is: XR/W 


1 


1 




L... 


*^ 


: XR/W ( #secs a blk# 


3 


3 


4 PICK 0 




4 


DO 


b 


5 


3 PICK I B/BUF * + 


/- 

b 


/- 


3 PICK I + 3 PICK R/W 


7 


1 


LOOP 


a 


8 


£DROP EDROP i; 


9 


9 




10 


10 




1 1 


1 1 




i kin 






i j> 


1 3 




1 4 


14 




15 


1 J 





5 



6 
7 
8 
9 

10 
1 1 

1 d! 

13 
14 
15 



Ini t ial i zat ion 



Screens 134 
0 ( Utils: 
1 

£ BfiSE }? DCX 

4 ' ( XC! ) < £1 KLOflD ) 

' ( HIDCHR ) ( £4 KLOPID ) 
' ( > BSCD ) ( £6 KLOfiD ) 



■uJ t 



Screen s 1 
© ( IJtils: 



1 



5 



8 
9 
10 
1 1 

1 c' 

14 
15 



SMO'v'E 



( org des cnt 



SMO'v'E 
FLUSH MTB 

741 I? PftD DLiP 1 AND ~- - £DUP 
SWOP B/SCR * B/BUF * U< 
IF CR . " Too many: " 

B/BUF B/SCR * / U. 

. " max. " DROP £DROP 
ELSE DROP 

> R DCX MTB CR 

, " SMOVE from " OVER DUP 3 
. " thru " R + 1~ 3 . R CR 
3 SPACES 



II 



1 1 



tc 



n 



DUP DUP 3 . R 



thru 



1 1 



R + 1 



R 



3 ( UtilH 



i 
i. 



V:. 



6 
9 



1 

•1 
J. 

•f 

r 



1 

cr 



SMOVE 



IF 



fiCE Y/N 



CR . " Insert source" RETURN 
R B/SCR * PfiD DUP i PiND - 
4 ROLL B/SCR * OFFSET i? + 
1 XR/W 

CR ., " Insert dest." RETURN 



i 



R> B/SCR * PAD DUP 
ROT B/SCR * OFFSET S + 
0 XR/W 
ELSE R> DROP £DROP 



AND 



CR . 

END IF 
END IF 



Srnove aborted 



It 



■ on 



CR 



Screen: 141 
0 ( UtilB 
1 

d HEX 



1 
14 
5 



H->L L 



1 i 



H / L. 



4 CODE H->L 



( n 



B5 C, 01 C, 95 C, 00 C, 
94 C, 01 C, 4C C, NEXT 



cr 

6 
7 

a CODE L->H 
9 

10 

11 

1 c! C 0 0 E! H / L. 

BS C 

4C C, PUSH0A 

DCX 



Vl 



B5 C, 00 C, 95 C, 01 C, 
94 C, 00 C, 4C C, NEXT 



n ) 



C 



n i 



(3 ^ 



( n — n 1"! ) 
00 C, 94 C, 00 C, 



1 



Screer? s 1 39 
0 \ Ut i 1 B s 



1 « 1 



J— 

o 



s 

9 

10 

1 1 

i. 1^ 

14 
15 



LOADS 



THRU 



OADS 
0+S 
DO 
I LOAD 

i_ 0 I J P n 



?EXIT 



THRU 
OVER 



n cnt ) 



1+ « 



> 



5 



14 



BIT ?BIT 



TBIT 



) 



Screen: 14£ 

0 ( Utilss 

1 HEX 

£• CODE BIT ( b — n ) 

B4 C, 00 C, C8 C, A9 C, 00 C, 
95 C, 00 C, 95 C, 01 C, 38 C, 
36 C, 00 C, 36 C^ 01 C, 18 C, 
6 88 C, D0 C, F8 C, 4C C, NEXT , 

8 : '?Brr BIT AND 0# ; ( n b — f ) 
9 



TBIT BIT XOR s 



10 : 
11 

12 : SBIT BIT OR ; 
1 3 



« 



RBIT 

FFFF SWAP TBIT f-)ND s 



( n b — rr ) 
( rj b — ri ) 
( ri b — ri ) 



Screen: 140 Screen: 14^i 



0 


( Ut i Is : 


StC MSEC 


) 


0 


( Ut i Is 


M 


STICK 








> 


1 








1 


HEX 




















u W' _/ 




( n — > 


i_ 


HERE 


DUP £DUP 




1 , -1 


1 






,i' 


0 DO 






3 




















/ 

/.|. 


9300 


0 




4 


CODE 


ST I CK 






< n — 


h 


V 


) 


5 


DO 






5 




















6 


LOOP 






6 


B4 




00 


C, 


BS C I) 




0£ 






/ 


LOOP ; 






7 


48 




CA 








03 






a 








8 


0A 




AS 


c, 


B9 C, 


9 


95 


r 




9 


M l^"! S E C- 




( n — ) 


9 


0£ 


c. 


cs 




B9 C, 




95 


c, 




10 


0 DO 






10 


03 


c, 




c, 


4A C, 


4fl C, 


£9 


c, 


J 


11 


6 0 






1 1 


03 


c, 


0A 


c, 


AS C, 


B9 C, 






1 c! 


DO 








95 




00 


r 


C & C/ ^ 


B9 C 9 






13 


LOOP 


NOOP 




1 *^ 

4. \-i 


95 


r 


01 


C, 


4 C" C/ ^ 


' SWAP 








14 


LOOP ; 






14 




















1 «=; 








15 


CURRENT 


I? CONTEXT ! 








\ 



Screen n 144 

tl ( Utilss STRIG PftDDLE 

1 HEX 



Screen 



4 
5 
S 
7 

8 
9 

,1. )..'.. 



4 -n 

.1. v.:^ 



1 -^i- 
J. D 



CODE PADDLE 
B4 C, 00 C, 
AC C, PUT0A 

CODE STRIG 
B4 C, 00 C, 
49 C, 01 C, 

CODE PTRIG 
B4 C, 00 C, 
49 C, 01 C, 



B9 C, 
C; 



( n 
£70 



B9 C, 
4C C, 



B9 C, 
4C C, 



£84 , 
PUT0A 

( r, 

OTP 

PUT0A 



n ) 



f ) 



r • 



f ) 



r • 



147 

0 < Utils: 

1 HEX 



BRND 



16R1MD CHOOSE 



CODE 8RMD ( 

4 flD C, , 

5 4C C, PUSHOfi , 

6 C; 

8 CODE iSRND ( 

9 AD C, D£0A , 48 C, 68 C, 

10 &8 C, 48 C, AD C, D£0A 

11 4C C, PUSH , C; 

1£ 
1 ^ 



io : CHOOSE 



b 



48 ( 



( n ■ — n 



14 
15 



16RND U* SWAP DROP 



■jcreeri : 1 45 

0 < Utils: ATRACT NXTATR ) 

1 

o nr-y 

i..' W A 



4 


: ATTRACT ( 


f — 


) 


cr 


IF £55 ELSE 0 END IF 77 C 


^ i . 




6 


s NXTATR 






8 


i,J l~ t.' W . <i 


( — 


) 


9 


>; Chainges user clock ) 






10 

1 1 


: HLDATR 






1£ 


0 £0 Ci ; 


\ — 


> 


13 


( Changes user clock ) 







1 4 



Screen: 148 

0 ( Utils: CSHUFL SHUFL 

1 DCX 

£ : CSHUFL < a n — 

3 1-0 SWAP 

4 DO 

5 DUP I CHOOSE +• OVER I + 

6 £DUP Ci? SWAP Ce 

7 ROT C! SWAP C! 

8 -1 +LOOP DROP ; 
9 

10 s SHUFL ( a n — 

11 1-0 SWAP 

1£ DO DUP I CHOOSE £* •i- 

13 OVER I £* + 

14 £DUP @ SWAP @ ROT ! SWAP ! 

15 -1 +LOOP DROP ; 



Screen : 



146 



Screen: 149 



0 


( utiles 


1 6T I ME 


1 


HEX 






I... 
— % 


CODE 


16T 


IME 




CA 


c. 




5 


A5 


c, 


13 C, 95 


6 


A 5 




14 C, 95 


-7 


D0 


c, 


04 C, 


8 


A5 




13 C, 95 


9 


4C 




NEXT , C; 


10 








1 1 








1 d 








1 








14 

















c, 
c. 



01 C, 
00 C, 



C, 01 c, 



0 


( Utils: H. 


r\ 

)r\ m 


1 






c 


: A. 




3 


Ce 1£7 AND 




4 


DUP 3£ < OVER 


5 


1£4 > OR 




6 


IF DROP 46 


END IF 


7 


SPEMIT ; 




8 






9 


' ( H- — > ) ( 


x 
1 
/ 


10 






11 


: H. 




1 c! 


BASE @ HEX 


SWAP 


Id 


0 <####> 


TYPE 


14 


BASE i ; 




15 







( a 



< d 



Screens 150 Screen: 15^ 

0 ( Utils: DUMP ) C 

1 DCX 1 



: DUMP ( a n — ) 

4 D+S 

5 DD 

6 CR I H->L H. I H, 6 

7 £ SPfiCES I. 8 O+S £DUP 7 

8 DO 8 

9 I C& H. SPACE 9 
10 LOOP CR 7 SPACES 10 
i. .i. 13 Q 1. 1. 

12 I A. a SPACES 1£ 

13 LOOP ?EXIT 13 

14 6 /LOOP lA 

15 CR : ==> 15 



V 



Screens 151 Screen: 154 

i2 ( Utils: BLKOP system ) 0 

1 HEX 



1 



3 CODE BLKOP ( adr cnt byte — ) 3 

4 Ag C, 03 C, £0 C, SETUP , A. 

5 HERE C4 C, C4 C, DO C, 5 

6 07 C, C6 C, C5 C, 10 C, 03 C, 6 

7 4C C, NEXT , Bl C, C6 C, 7 
v3 31 wq CtjC/»i C/SL/ij Q 
9 D0 C, EC C, E& C, C7 C, 4C cj 3 

10 , DCX 10 

1 1 C ; 11 

12 12 
1 3 1 3 

14 14 

15 — > 15 



r 



Screen: 152 Screen: 155 

0 ( Utils: BXOR ) 0 

1 HEX 1 

2 CODE BXOR ( adr cnt byte — ) £ 
A9 C, 45 C, 3 

'i 8D C, ' BLKOP 12 + , 4 

5 4C C, ' BLKOP , C; 5 

6 6 

7 CODE BAND ( adr cnt byte — ) 7 

8 09 C, £5 C, e 

9 SD C, ' BLKOP 1£ + , 9 

10 4C C, ' BLKOP , C; 10 

11 11 

12 CODE BOR ( adr cnt byte — ) 1£ 

13 A9 C, 05 C, 13 

14 SD C, ' BLKOP 12 + , 14 

15 4C C, ' BLKOP , C; BASE ! 15 



Soreerii 156 

0 < Strings: -TEXT ) 

1 EfiSE & DCX 

£ ; -TEXT ( a u a — ) 

3 £DUP + swap 

4 DO 

5 DROP 1+ 

fe DUP 1- C@ 

7 I Ce - DUP 

8 IF 

9 DUP ftBS 

10 / LEftVE 

11 END IF 
i;=; LOOP 

13 SWAP DROP DUP 

14 IF 1 SWfiP +- END IF ; 

15 ==> 



Screen: 159 

0 ( Strings: $CON , *VfiR , C"3 ) 
1 

£ : $CONSTftNT ( $ ccc — ) 

3 PAD 51£ + SWAP OVER $! 

4 0 VftRIftBLE -£ ALLOT 

5 HERE *! HERE C@ 1+ ALLOT ; 
6 

7 : ^VARIABLE ( len ccc — ) 

8 0 VARIABLE 
g 1- ALLOT ; 

10 

11 : (") ( -— * ) 

1£ R DUP Ce 1+ R> + > R ; 

14 

15 — > 



Screen: 157 

0 ( Strings: -NUMBER ) 
1 

2 0 VARIABLE NFLG 

.1 

\.,» 

4 : -NUMBER ( addr — d ) 

5 BEGIN DUP Ci? BL = DUP + NOT 

6 UNTIL 0 NFLG I 0 0 ROT DUP 1+ 

7 Ce 45 = DUP > R + -1 

a BEGIN DPL ' (NUMBER) DUP Cil' 

9 DUP BL <> SWAP m AND 

10 WHILE DUP Cr? 46 - NFLG I 

11 0 REPEAT DROP R> IF DMINUS 
IS END IF NFLG & 

13 IF £DROP 0 0 END IF 

14 NFLG & NOT NFLG ! ; 



Screen: 160 

0 ( Strings: " ) 
1 

3 34 < Ascii quote ) 

4 STATE @ 

5 IF ( cccc" — ) 

6 COMPILE (") WORD 

7 HERE Ci? 1+ ALLOT 
S ELSE 

9 WORD HERE ( cccc" $ ) 

10 PAD *! PAD 

11 ENDIF ; 
1£ 

13 IMMEDIATE 
14 



Screen: 15S 

0 ( Strings: UMOVE , *! ) 
1 

2 

3 FORTH DEFINITIONS 
4 

5 : UMOVE ( a a n — ) 

6 <ROT OVER OVER U< 

7 IF 

8 ROT <CMOVE 
^ E L~> S E 

10 ROT CMOVE 

11 ENDIF ; 

1 a $ i 

14 OVER C§ 1+ UMOVE ; 

•J — / 



Screen : 161 

0 ( Strings: *. , $XCHG ) 
1 

£ : *. ( $ — ) 

3 DUP 0> 

4 IF 

5 COUNT TYPE 
fc ELSE 

7 DROP 

8 ENDIF ; 
9 

10 

11 : $XCHG ( $1 *£ — ) 

1£ DUP PAD £56 + *! 

13 OVER SWAP *! 

14 PAD £56 +• SWAP *l ; 



Gcreen: !&£ 
0 ( Strings 



i 

4 
5 
6 
7 
8 
9 

1 1 

■< •"' 

i, 1 , 

1 



fi 



14 



SWAP PAD £56 + 
> R R $! 

DUP SWAP 1+ 
R C& 1+ R + 
3 PICK UMOVE 
R C@ + £55 MIN 
R C! R> PAD *! 



*+ , LEFT* 

( *1 *£ 



LEFT* 

SWfiP PAD <ROT 
OVER C& MIN 
OVER CI 



PAD ; 

( * N 
PAD *! 



n 
H 



) 

* ) 



* ) 



Screen : 



IS'^ 



0 ( Strinqs: *< 
1 

* < 

*COMPARE 0< ; 



« 

M 



cr 



6 
7 
8 
9 
10 
11 
1£ 
13 
14 
1 



: *= 

*COMPARE 0= 

: *> 

*COMPARE 0> 



*= , *> , 



( *1 *£ 



SAVE* 

PAD 51£ + SWAP 
OVER *1 



( *1 *£ 



( *1 *£ 



SV* 



f ) 



- f ■) 



< * — * ) 



5 



> 



Screen: 

0 ( Strings: 



RIGHT* , MID* 



screen: 166 
0 ( Strings 
1 



IMSTR 





: RIGHT* ( 


* n 


— * 


) 




0 VARIABLE 


INCNT 






SWfiP PAD <ROT PAD * 


1 














^. 


OVER <ROT OVER C© 








4 


: INSTR 


( *1 *£ - 


- n ) 




DUP 4 PICK + 








5 


0 INCNT 


! 1+ SWAP DUP 




B 


(ROT MIN DUP 








6 


>R OVER 


1 - Cl? > R 1 + 


i 


"7 
t 


(ROT 1- - 








7 


DUP 1- C@ R - 1+ 0 MAX 




8 


SWAP ROT OVER OVER 








8 


OVER + S 


WAP R> (ROT 




9 


C! 1+ SWAP CMOVE ; 








9 


DO 






10 










10 


£DUP I 


-TEXT 0= 




1 1 : 


; MID* ( * start 


len 


— * 


) 


11 


IF 






.1. c 


3 PICK Ci? 1+ ROT - 








1 c! 


I J 


- INCNT ! LEAVE 






0 MAX ROT SWAP 








13 


END IF 






14 


RIGHT* SWAP OVER 








14 


LOOP 








Ce MIN OVER C! ; 






> 


15 


£DROP R> 


DROP INCNT @ ; 
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LEN 
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1 1 
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C© ; 



ft sc 

1+ C@ ; 
*COMPARE 



LEN , ASC 

( * ■ 



*COMP ) 



length ) 



( * — c ) 



f ) 



( *1 *£ — 
£DUP C@ SWAP C@ SWAP 
SDUP MIN (ROT - > R 
ROT 1+ (ROT SWAP 1+ 
-TEXT -DUP 0= 

IF R> DUP IF 1 SWAP +- END IF 
ELSE R> DROP ENDIF ; 
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( Strings 
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cr 
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1 1 
1 c! 
1 3 
14 
15 



CHR* 
1 PAD C! 
PAD 1+ C! 
PAD 



n 

1 



CHR* 



DVAL 

PAD *! PAD 
DUP C@ OVER 
0 SWAP C! 
-NUMBER 



DVAL , VAL ) 
( c — * ) 



1 + + 



H 
1 



VAL 

DVAL DROP ; 



( * 



( * 



cl ) 



n ) 



) 



3 
4 



uJ 

6 
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8 
9 
11? 

i 1 

1 u6 

14 
15 



DSTR* 
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0 ( Strings: 
1 

: DSTR* 

DUP <ROT DABS 
<# #S SIGN #> 



STRCINGl* ) 



DUP 



<RDT C! PAD *! PftD 
SIR* 

S->D DSTR* ; 

STRING* 

1+ D? OVER 

PAD C! PAD 

1+ <RDT FILL PAD ; 



( d 



< d 



* ) 



* ) 
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iZi ( String 
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1 



3 
4 
5 
b 
7 
S 
9 

10 
1 1 

12 

14 
15 



■ 



*-TB 

DUP DUP 1+ SWAP Ci? 
-TRAILING SWAP DROP 
OVER C : 



( * 



IN* 



#IN* < n 

-DUP 0= IF £55 END IF 
PAD 1+ SWAP EXPECT PAD 
BEGIN 1+ DUP D? 0= UNTIL 
PAD 1+ - PAD C! PAD 5 



IN* 

0 #IN* ; 



BASE 
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0 CONTENTS 
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OF THIS DISK 



TRANSIENTS: 

ARRAYS «• THEIR COUSINS 

4 KEYSTROKE WORDS: 

5 SCREEN CODE CONVERSION 

6 CASE STATEMENTS: 

7 valFORTH EDITOR 1-1: 

8 HIGH- RES TEXT: 

9 DOUBLE NUMBER XTNSIONS 
10 MISCELLANEOUS UTILS: 
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14 
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STRING WORDS: 
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64 
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LOAD 
LOAD 
LOAD 
LOAD 
LOAD 
LOAD 
LOAD 
LOAD 
LOAD 
LOAD 
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0 0 ( Error mesBages 

1 1 

2 2 Use only in Definitions 



4 E K ec at i on on 1 y 



6 6 Cond i t i ona 1 s not pa i red 

7 7 

8 S De f i n i 1 1 on not f 1 r\ i sh €^ d 

9 3 

I i2 10 1 n prot ect ed d i ct i or\B:ry 

II 11 ' 

12 12 Use only when loading 

13 13 

14 14 Off current screen 
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0 ( Error messages 
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Stack empty 



4 Dictionary full 



6 Wrong addressing mode 

7 

8 Is not unique 



10 Value error 
1 1 

12 Disk address error 
13 

14 Stack full 
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valFORTH^ 

SOFTWARE SYSTEM 

for ATARI' 
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'Atari is a trademark of Atari, Inc. a division of Warner Communications. 



Software and Docyment^tiot 
©Copyright 1982 
Valpar Internattonj 
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T.M. 

SOFTWARE SYSTEf 




Stephen Maguire 

oftware and Documentation 
©Copyright 1982 
Valpar International 



Purchasers of this software and documentation package are 
authorized only to make backup or archival copies of the 
software, and only for personal use. Copying the accompanying 
documentation is prohibited. 

Copies of software for distribution may be made only as speci- 
fied in the accompanying documentation. 
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VALPAR INTERNATIONAL 



Disclaimer of Warranty 
on Computer Programs 



All Valpar International computer programs are distributed 
on an ''as is'' basis without warranty of any kind- The total 
risk as to the quality and performance of such programs is with 
the purchaser. Should the programs prove defective following 
their purchase, the purchaser' and not the manufacturer, distributor, 
or retailer assumes the entire cost of all necessary servicing or 
repair, 

Valpar International shall have no liability or responsibility 
to a purchaser, customer, or any other person or entity with 
respect to any liability, loss, or damage caused directly or 
indirectly by computer programs sold by Valpar International. 
This disclaimer includes but is not limited to any interruption 
of service, loss of business or anticipatory profits or conse- 
quential damages resulting from the use or operation of such 
computer programs. 

Defective media (diskettes) will be replaced if diskette(s) 
Is returned to Valpar International within 30 days of date of sale 
to user. 

Defective media (diskettes) which is returned after the 30 day 
sale date will be replaced upon the receipt by Valpar of a $12«00 
Replacement Fee, 
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"I" able c) f C o r 1 1 e n t 



•■••i 



l.„ X I S t r c • 1 1 i n q 1" l-i r o u g h v a 1 1) (3 S 

A brief look at the t eat ures of the valDOS syBtem., 

!.... X :i: I « V a 1 D (3 B C o m m a n d \j esc r i p t :j. o n s 

D e t a i 1 e c j d e s c;: r i. p t i { j r i s o -f a 1 1 the v a 1 D S e m jv i a n d s . 

1 ... X :i: 1 I V a 1 D Q S S !Hi. t e fT } G 1 o s s a y 

a ) T h e i n t e r n a ]. w e r' l-^: i n q s o i v a ]. I) (' J .< » » . « I 

b) The system '■'lossary » » « » .< . » « « .. 

c) The cDmmai!u system glossary . .: » . . « « 1^-^ 

d) }£rrDr mes sages and meanings .= « « « « 12 

LXIV.. valDOB File Editor 

U s e )'•• '■' s m a n li a j. f o r" t h e y a J. UU S t i J. e e d i t o r .: 

X V „ V a 1 D D S 1 S Li p p 1 i e d o li r c e 1 i s t i n q 

I.... X V I . y 3 1 I S u p p 1 i e d 9 o n r c e 1 i s t i n q 



S t r c J ]. 1 1 r I Q T" h i'" o ix g h v a 1 D 13 S 



Until now:: one of the major drawbacks of FGRTHs -for Atari 
iAi a s t h a t V Q n c: o u 1 cl c:: tj \_i ]. ci en. t h e r" s a v e c: o d e o ii s c r- e e i" i s c:) r i n D (' J ';:> 
•f 1 ]. e s ■, b u t n o t b o t h . T' he ( j e rn a n ci t o h a v e b o t h b r o u g h t. o !-i t h e 
ci e V e ]. c:< p tu e i' 1 1 o f t: i" • i b t w cj -- ci i b k p a c !•:: age — v a 1 D 0 S 

[4 1 1 h V a ]. I) ( J S V o Li c: a r"! ]. o a d F' C) T' H s c:: r" e e n b j u s t a s b e f o r" e . o r 
V c J c « c a n 1. c: < a ci !••• 0 R T H b o u r c e f r o fn s t a n ci a r ci A t a r i D 0 S f i ]. e ^ii- . B c .i t. 
t f ■! 1 B p a r; }•:: age a ]. 1 o w u c:: h ?ri o r b t h a n t h a t „ A c o fn p 1 e e i i 1 e 
e ci 1 1 {■ J r- 1 s ^;h- i . a p' j: • I i e d w h i. c h c: a ii b c^ ix b e ci t o e ci 3. t F 0 R T IH ( o r" 
assembly. Pascal, etc.) source code and save it in DOS -forniat,, 

j o 1. 1 s- B t h 1 B p a c k age t cj i. t s -f u. I I est. at 1 e a b t '5 2 K o -f • m e m a r \^ 
B h o u 1 d b e a v a i 1 a t ■ J. e . 1 -f y o u. h a v e leBB t f "f an 32 K „ d o n t ^ o r r- v „ 
:i. t 1 1 ..> s- 1 ! T I c? a n s t: |-i a t y ( j u c: a n t 1 o ad a 1 1 o f t ^ i e c:: o m 1 1 1 a r- 1 ci s a t o f i c: e 
T h e p a c !•:: a. g e i. b b r o k e r! i n t o b i x a . i c;) r p a r t b s 

1. ) V a ]. D (!} S ( a p r o i in a t e ]. v -3 « 6 !•< c: o n) p i led) 

2 ) V a ]. I.) D S e ;•; t e n s i o r"i b 

5 ) B a s i r D (J ~> c < ;:< m i n a n d s ( h: e b o a r d e !"! t r v o i" i i. v ) 

4 ) D U S c o 1? ! m a n ci e x t e n s i o n s 

5 ) F o r ? !< a 1 1 e r" / c c:) i :;< i e r s 
6 '» F- 1 1 e ed i t O!^- 



W c? ^iH. I- 1 a 1 1 b e c:) i n t h i b b t r- o I I b y t a I :i. r « g a 1 cj cj k a t. 1 1* ! f: f :i, r- s. t 
•f i V e n a r- ^: ... B e t o r e s t a r t i n q , ci u p 1 :i. c a t e b o t h m a t e r d i s h: s 
( I' 1 e ' .!. 1 O e m cj d i -f •;/ 1 n g t h e v a ]. D (J S 1 1 c o p v ) . i: n s e r" t y c:) u r v a J. B (. .) I 
d 1 k ;!. n ' ci r- i. v e o n b: a n ci .1. i ^.i- 1 b c r- e e n 1 7 0 b y t y p i n g 1 7 0 i ... 1 S T 
!. .. o c;^ k i o Y t h e I i n e t h a t b a y D 0 E> (J ( j M !i A h-i D F. X T' IE k! 3 I Q N E^ a i i ci ]. » j a d 
t }••} e m 1 n ... T h :i. s |-f o u. I d t a k e a tew m i n u t e s ... T' I"! e r e a r- e b o « i > a n y 
commancis with so many variations cjn eac::h that cjnlv the 
}-. 1 a b I i g h t s o t t h e d a c: 1-^ a g e w i. i. 1 b e d i b c ti <=i. rr.:- e ci h e r e „ E a c:: I"! c> -f t h e 
<::: o rn fr« a n ci s :i. s- e >•: |:::» i. a ;i. n e ci :i. n < i e t a i. X :i. n b e c: t: i cj n L. X 1 1 « 

j; n s e r- 1 y ( ::< u. r c o | j v o -f t b e v a i. I J ( J S j; i; c! i b k e 1 1 e . T v p e D 1 R a n d 
press the rettirn k -y. You should see the following c:«n your 
di spl ay n 

I--- 1 ]. e B o n v a I D 0 S ci i s ! 1 i: 

kk'^kiE EXT SIZE SEC 

4 i-- } 1 1 1 ^ 1- I- i -i- t- h "l- 



A I TF'' 
I — h 4-- I- 



ASSil =. 4TH 

XBOGT 411-! 
DGCk.lS TS. 4TH 

El EE IT 4 1 H 

2 0 9 s e c: t o v b t r e e . 



Z'5 4 k. 

10 37' [,.. 

/ 4- ■/' 1... 

S 54 i... 



EXl - 



1 



Strol 1 1 nq 



Thru val DOS 



T' h e I) ]. R c o mm 3. n d s i m p 1 y d 
T' here ar e f o u. r f :i. 1 e s o n t h 

V a ]. F- G f( J }-} a s s e nf« b ]. e i'" w i. t h a 

:i. n e;- t r" u c t i o n w h 1 r:: h a s s b fn b 1 e d 
address »>\«as in the zero page,, 
al .1. Dws d;i ct :i. onar i es greater 
D 0 C L I S ! S 4 r IH i s. t h e i- o 1 1 n e i.i 

V a 1 F" (J F-\ ' !" IH d o c:: u (Ti e n t a t i o !i „ A n 
1 1"! a t t r a !" « s f e r s- F^' (!3 F-< T H s c r e e r j 



If voLi have a two drive 
(j J. e c t o r V o -f t |-i e d i s- }•;: :i. r"f d r i 
a c: e e t t i I e s p eel -f i c. a 1 1 e n e> 



3. s p 1 a y s the d i i'" e c: t o r y c:) f t li e d i s- }•:: 

is disk. A S S II „ -I- J H i e:- the t a n d a r d 

correction for the "absolute. Y" 
i ncorrect 1 y when the "absol ute'' 
X B 0 D T ^- T F-1 1 s a r o l\ t i n e i"^ h i c h 
than 32F< to be SAVEd and AUIGed. 

s e c j t o I i s t s i x s c. r e e n f:=- / p a g e -f o i- 

d finally,. F- I LE IT . 4TFi is 

to DOS files= 
system, DIR 2 will 

ve two« The DIR command 

T r y t h e foil c.) w i r "f a l* 



a rout 1 ne 

give the 
wi 1 1 al so 



DIR (^331-1. 4TF 

D :i: R X t 

DIR ';^';^';^?i t 

DIR IIYFILE 



"[ n t h e 
1 i st ed 

of the 
sector 



I n t h e s e e x a m. p 1 e t h e r' e a y~ e t li e t w o c: h a r act e r" s " " a rKd 
" " w h 1 c l"f n e e d s cj me e ?< p 1 a n a 1 1 o n „ S i m d 1 y p u t , " ? " w ;i. 1 1 in a t c:: h 
a r-{ y s i n g 1 e 1 e 1 1 e r w h e n r o m p a r e wit hi a f i 1 e; name i n the 
d 1 r- e c: t o r y „ " " w i 1 1 « n a t c h a fi y g r- o u p of 1 e 1 1 e r s t o t h i e r i g 1*1 1 
f {'■• o f n i t p <;•) s 1 1 1 o n t (:::• t F i e e n ci c j -f t. F i e f i J. e n a f tj e „ IF n t. he s e c: •::« n d 
e X a H! p 1 e a b o v e « a ]. ]. f i 1 e s s t a r t i r"? g w i t Fi " X " a r- e 1 :i. s t e d „ 
1: F" ! i r d e >: a i n ij i. e , a I J. f i 1 e w h o e f i f 1 1" i ]. e 1 1 e !'"• i s " ;F " a !' ■ e 
( t F'i e f :i. r s t F o t j o a n b e a n y t. Fi i n g ) . 

F-- o r a d v a n c e d F (3 F^: ' T F-l p r o g r" a ( n m e r" s , t h e S E. C t c j r c o J. u m n 
listing is the first sector of the file„ TFiis is a DOS 

( F'-" 0 R ! R B e <:;; t o r s a r- e o f f s e t b y 1 , i « e . , F ( J F^ T R s e c t o r s a r- e 

n u ! T J I J e r • e c:l ?b 1: a r ting at z e j- o w Fi i. 1 e A t a r i Fi a s n u nf i F: « ere d D (1 S e c t o r 
b e g :i. i { n i n g w 1 1. Fi o r"i e h e n c: e D O S b e c: t o r 4 i. s- F 0 R T F\ s e c. t o r 5 ) 
1" F"! e ]. a s t c o j. iji n i d d i c: a t e s t h e a 1 1 r i b u t e s o f t h « e files,, A 1 ]. a f 
tFie files on thus disF: are locF::ed and thj ere fore Fiave thie 
at t r 1 tjut e 

N o 1 1 r B t F'I a t u n I i k e m o b t F ( J F-\ "F F-l w c:) r" d =, D j: R e >i p e c t s 
a r g u m e n t ^h;- o n t F"! e r i g F' 1 1 „ A 1 1 hi o u g F i v a 1 D (;:) e;- y s t e m i t. <h;. e I f e z p e c t. 
a ]. ]. j::? a r a n i e t e r b t o F:) e p a s- b e o n t F-i e s t a c: k , 1: 1'l e v a 1 D (. J c::> u s e r 
c o m If! a n cJ s- a ]. 1 expect t hi e i r a v g u m e n t s o n t F"i e r i g Fi t as :i. s u s u a 1 
V4 i t h D 0 S ■' <;:^ T F" i e o n I v r est i'" i c 1: i cj n on 1: h i met hi c::> c j of i n p i.» t i s- 
t F 'I a t n ( J F J ;i a n k s f y > a v a r j pea r • w 1 1 F" 1 1 n t h e c o m. in a n d 1 i s t . 

F... e t: •' B m a F: e a c:; o p v o -f o r"! e o f t hi e f :i. I e s « F hi e C G Y c c;} m m a n d 
ci c) e B t hf i s n i c: e 1 v f o r u ^ih- s 



"L 



i. t 



CORY FILEl^^^FlFJilT.. 4TF-I 

T F'I 1 s c o f n m a n d h a s t F" i e b a s i c: -f • c: • r i y i a t " n e w o 1 d ' ' T h e • G R Y 

c o m fTi a n d ( ::: a n a 1 s o a p p e r -i ci t w <::« o r ni o t" e f :i. 1 e s t o g e t F' i e r a n d s a v e 
t hi i B n e w f 3. ]. e i n t o a n o t !i e r f i J. e ii 

( J 0 R Y F-- I F.. Fi 2 ^^^^ F I L E 1 T . A- T R , D 0 0 } [ S T 3 4 F h! 



F 1 F...E 



F i o u 1 d n o w c: c:? n t a i n, !••• :F F... E 1 T „ 4 T R w 1 1 hi D 0 C L 1 S T E> 4- T FI 



F... X :f 



S t r o 1 I i r"i q T h r 1.1 v a 1 D 0 S 



c 



( 



a 13 p e nci e d t o i t « It i p o s s i b ]. e to s t f - 1 n g as man y f :i. J. e ^ie. 
together as desired. We're not quite through yet „ If we were 
to enter s 

C: Q P Y l~ I }..- E: 2 X B C] Q T 4 T H 

F":i:LE:-2 would contain an e^act copy ot XB(30T-4TH„ However, if we 
typeds 

C C) P Y F I L E 2 / A =^ X B D 0 T . 4 T" H 

X B 0C3 T" 4 r H w o u 1 cJ I::) e a p p e n d e cj to whatever w a s a I v e a cj y 3. n F I L I-:. 2 . 
namely FILiE]:T« 4TH ^- DOCL I STS . 4TH « Of course, also legal iss 

C: : n P Y {-• I L... E 2 / A - X B (J C) T" . 4 T H , A S S M . 4 T 

a n d a 1 1 of the o r i g i n a :i. f 1 1 e s w o u I d he c o n t a i i" 1 e ci 3. n F I L F. 2. 
U n f o r t u n a t e ]. y . F" :i: L F. 2 i s F D R 1" H s o 1.1 r- c e , b u t ci o e s not have t h e 
e X t e n s 1 o n 4 T H ( :!. t i s ri o t ri e e cJ e d . b u t d e s 1 r a b 1 e ) T h e R F. N A M E 

c o m iT I a n ci c a n r' e f 1 1 e m d y t li i s 1; 

i"< i:;- H A M E F- :i: e 2 . t h 1-- 1 !.... f 2 

L_ i ! :: e t | -i e C D F Y o m in a n d t h e f o rmat io r I-: E: F\ A M E i s- " r i e w o ]. d ' ' « F- o r" 
s o me, t V p i n q a 1 o n q n a i e 1 :!. I< e R E N A M E n i i g h t b e a c i"i c:) r e . i n c: e 
we a r" e a r" e i. i"! F D R J IH ,= w e c an e a s i ]. y t:: u s t o f n 3. z e 

!i !--^EM F':EMAHE i; 
h-l {J w t h at we have s o m e m o r e f i ]. e s- t o w o r k w i t h t y p e 

D I F: F % 
and DIF< F>i<« 

Notice the difference2 In the first example,, the remainder of 
1 1- 1 e f i 1 e n a m e i s w :i. .1. d . w h 3. lei n t h e s e c o n d e x a m p 1 e . t h e f i 1 e s 
m 1.1 s t e n d w i t h a r « u 1 1 e t e r i s 3. o n . 

;i: f we w a n t to k e e p t ! i e {• i 1 e F- 1 L. F. 1 f r o f y . b e i n g inod i f :i. e c:! 3. n 
a n y w a v w e c a n 1 o c !•:; it using the 1... C) L) K c o n) m a n d 

1....GCF:: F- 1 LEI 
D I R 

The LOCH:: (and so UNLOCF< and F::iLL) command can take several 
arguments 4 separated by commas ii 

i... n C K F I L F 1 , 11 Y F"" 1 L F A S II ^1 T R , F t „ 4 T F -l 

I n t }"u case.. 1... 0 C \< w o u 1 d 1 o c k F 1 L E 1 r- e p o r t II Y F 1 L E a <=;• 

b e i n g n o n e x 3. s t e n t :i. o c k ASS k\ . 4 J R , a n 6 t b e i i. s- s u e a 

V e r i f i c a t i o r"! p r o n) p t b e f o r e !l. o c k i n g any file that nf i a t c h e t b e 

s I") e c i f 3. c a 1 3. c:^ n F t -^I- T F-l . 1 ' r v t h e i o 1 1 c:) w 3. n g t. w o e a hi p 1 e s v. 



L X I 



S 1 1'" Q 1 1 i ! • I Q T" h r u v a I D 0 S 



LOCK 4TH 
iJjCK t.AJH/N 

I n the f :i. r" b t f ( j i'" m a v e r i -f i. c a t i. e ii p r ryi p t i b i fii;. b u. e d -f • o r 
each file before it is locked,, while in the second -fornu tl'ie 
V e r i -f 1 c: a t :i. c: « n in e ^ a q e :i. <:s n o t ci i s p 3. a y e d - T' he / M s w 3. t c: !i e:- t a n d b 
•f or " No as!-:: " or " No ver i f y " . 

Both KILL.. and UNLOCK have e;(actlv the same argument 1 :i. st 
as LOCK. Use caution when using the /N switch with the KILL 
c o m i Yi a n d 

If we want to qet a listing ot a text tilOj, we use the 
F \-< 1 N I ■ (~ o in m a n d „ I-- o r exam p ]. e s 

PRINT FILE-rr.: 4TH 

we qet !• 



S t r (3 1 1 i Fi q T h v u. v a ]. D D E) 



Fi len Dl t, FILE I T. 4TH 



0001 

0 0 O 2 ( R o Li 1 1 n e n F- 1 1... E. - 1 T 
00C)3 

0 0 O 4 T h e f o I :i. o i n q r o u t i. n e w i 1 I 

0 0 O 5 t. r a ii B f e f^" a s p e c i. t i e (d i'- a n q e o f 

0 0 0 6 F~ (J R T F"! s c; r e e n s to a file on 

0 () 0 7 a D Q S f r" m a 1 1 e ci c:! i s l< « 
00 OB 

0 0 0 9 F- c J m a t D F' I L.. E: -•■ I T 1 b t 1 a s t , f i I e i" i a m e 

00 1 0 F 1 L E; - 1 l " 1 0 , 2 0 , M Y F I i... IE 
0011 

0012 Note that DOB command b tend to be 

0 1 '5 I o n Q t J e c: a i.i b e o i e r r o r c h e c: }< i n g a ri d 

0 0 1 -^F p a r" a m e t e r" }::• a s i n q 
0015 
0016 

0017 i; F--I1...E IT DOB ( - > 

0018 6ETAF<6B '^^WF^BARG 44 GETAF-iJG ?WRGhF-<G 

0019 GETVAL BWAP 44 GETARG -^WF^GAFxG 

0020 GETVAF... BWAP KROT GVEF^ - 14- 

0021 PAD DUP 1 AND BUF-BOT OVER 

0022 B/BUF / 3 PICF< B/BCR OVER > 

0023 1 F 

0024 CF-'! " Too many Bcr eenB , " 

0025 B/BGR / . . " max " CR 

0026 2 DROP 2 DROP 

0027 ELBE 

0028 DROP <ROT O-f-9 

0029 DO 

0030 16 0 

0031 DO 

0032 I J (LINE) 

0033 ""TRAILING >R OVER 

0034 R (:::hovE r> 

0035 155 OVER G' 1 -i: 

0036 ! OOP 

0037 F...OOF--' 

0038 PAD DUP 1 AND - BWAP OVER •- 

0 0 F l ... U S V\ l N D S 1 R 0 ■]■■ D U ( E h-i " F F. R. ) 0 
0040 IF FLEXBI DBF^ERR ^-^^ 2BYBERR END IE 

0 0 A- 1. ( 0 !■"= E N ) ' ••* S Y S E R. R B N A P D F^: 0 R > R 

0042 R (WRITE) '?BYBERR 

0043 R (ENDF) 2BYBERR 

0044 R> (Gi...OBE) 

0045 END IF 

0046 OR !j 
0047 



0048 FOR FT) 



L_ X ;f 



S t. r c) 1 ]. :l n g T h i"' v a J. I) 0 S 



T' h e I R I N ' !' c o m / n a n d h e\ s b e v e i"* a ]. o p t i. (::« n s „ ;i; -f i:: h b s w 1 1 c. h / \'\\ 
( n D line n ix m b er' s ) i p r e b e n t h the file is 6i b p 1 a y e cl w :L t h o ix t 
1 i n e n u. cu b e i'" .-. 1 1 a n o p t: ;i. ( j n a ]. e- t a r • t i. n q 1 i f! e n u m b e r i s iiE- p p 1 i e d ., 
printing begins at that line;: 

PRINT F ILEIT. 4TH/N, 17 



1 ■ h :i. s w ;l. j. 1 p r i n t the f • i 1. e s t a i'- 1 i. n q w i t h 1 j. n e 1 7 a n d w j. t h 
no line numbers« Note that the listing may be aborted at any 
t :i. m e b v j j r e s s i n g o n e o f t he ye ]. I o w eon <s e 1 e k e y s « 

T h e P R I H T c o mm an d i s :i. deal f e r- d i s p J. a y i n g t e t file s , t:> u t 
1 <B u 1 1 e r- ]. y u b e 1 e b s f o r I i s t i n g a b i n a r y a r c j a t a f i J. e . !••• o v t h i s 
reason:; the command F-DIJIIF- (file DUMF-') has been supplied,, Let s 
try FDUMF--' on F^- 1 LJEl T . 4TH n 

F"DUHF-' F- nJ::iT„ 4TFi ^ 



F-ile;5 D 1 1; F- 1 LFi 1 T . 4TF--I 



:: ( F-\OUti 

HBY, F- l LE 

•- 1 r 

The foil 



L i !•:; e F-' R 1 N J , F D U M F- m a y b e a b o r t e d b y p r e s s i n g o n e {.:> f t li e 
y e I 1 o w c:: o n n;;- c:« 1 e !•:: e y 1 f t F- • e file n a fn e F'l a the " w i d e " s w t c: h / W 

a p p e n d e d t o i. 1: t ii e f :i. ]. e i <;:;• d li fvj p e d Nit h 1 6 b y t e s / 1 1 n e :i. r i s- 1 e a d 
of eight as above. This format is more appropriate when sent 
t o a } J !'•• :i. n t e r" „ R D (. J M R a ]. w a v s d li f i i p s i n li e >; a ti e o i m a J. ,: 

I.... e t ' c o m p i J. e a i- o li t i n e f r- c j n « a D Cl B f :i. 1 e . T h e -f i. 1 e 
D ( J (" ■ 1... 1 S T S u A- T F-l i ^ t h e j j r- o g r- a m u {h> e d t ( j p r • i. ri t 6 c: r e e n / page i- c: < r 
d c: u fi! e n t a 1 1 ( j n T" o ]. o a d t li i s f i ]. e , we s i m p ]. y e n t e r s 

F-LGAD DGCLiSTS„ 4TF"! 



0000 9B 28 20 

C)008 6E 65 3 A 

0':)10 2D 49 54 

0018 54 68 65 
0020 



52 6F 75 74 69 

20 46 49 4C 45 

9B 20 9B 20 20 

20 66 6F 6C 6C 



a n d t h e r o li t ]. n e D D C i ... I S T S s h o u 1 d n o w be i n t !" i e d i c: t i o n a r y „ T' h ere 
1 s a n ice feat u r e t o t |-i e F- !.... C) A D c: o (Ti m a n d u 



FGF^GEr DGGL.18TS 
GN ECF-IG 

PEG AD DGCE18TS.: 4TF! 



N (.3 1 i c e that t li :i. s t i m e the f :i. 1 e was e c h o e d t o t h e d :i. s p ]. ay as 1 1 
was b e i n g 1 a a d e d „ i... i k e 1: h e F- R 1 M 1 c:: o m / n a n d , F'- L.. G A D c. an t a F: e a n 

o }::) t i o n a 1 <h> t a r 1 1 n g ]. i n e s o t ^-f at 1 { j a d i n g c:: a n b e g i n m i d f i ]. e . 

I-I o ]. ci :i. fi g d o w n a c: o n o 1 e l-^: e y w i 1 ]. a I j cj r t a 1 o a d o n c: e t h e o li r r" e n t 
d ef i n 1 1 i on i s c oinp i ]. ed » 

;[ f y o Li h a V e a <;;;• c:) li r- c. e f i. 1 e w I" i i c: i"! i b p h y s- :i. c a 1 ]. y c o n t a i n e c j 
t w o o r (J) o re f :i. 1 e s „ t h e y c an be 1 i n !■•: e d t o g e t F- 1 e r u s i n g t Fi e I-- L„ G A D 
c: cj Hi m a n d R o \- e x a fvi p ]. e , F- A F < T 1 „ A- J R c: o i.i 1 d e n ci wit h a n 



LXl 6 



S t r o ]. ]. :i. n g T h v u v a ]. D Q S 



FLO AD F'ART2.: 4TH,, and part 2 could end w:ith FLO AD PA}-:T3.4ThU etc„ 
In this way, a mul t i -par t file could be loadedu Although this 
methnd works. It should be avoided for several reasons. One 
reason is that it any of the files are renamed ^ or it they are 
moved to a dif-ferent drive, each ot the original tiles may have 
to be edited to change the FLOADs» A second and more 
complicated reason is that for each file FLOADed this wav. a 
s e |::) a r' a t e f i 1 e b ix f f e r r'^ e e d s to be a 1 locate d „ T h e c:l e f a l a ]. t n u ( n b e r- 
(J f f i 1 e b u f f e r s i s f o u r t hi e r • e f o i'" e no fi) o re t h a n f o u r file b c a n 
be chai ned « 

T h e s o 1 u t i o n t o this p r o b 1 e m i. s t o c r e a t e a f i J. e w h i c h 
c o n t a 1 n s n o t h i n q I j u t I-" I.... Q A D s 

Fi 1 e^ AI,.J.J-'AFvTS. 4TH 



0 0 0 1 F L 0 A D !•••' A 1-^: J 1 . 4 1' hi ( 1 o a d :i. n t h e ? ? r o u t i n e s ) 

0 0 0 2 F" L. 0 A D F A R T 2 . 4 T IH ( 1 o a d i n the 7 7 r o u t i r f e <n> ) 

0003 FLO AD PAF<T3„4TH ( „ . ) 



• J" }•", ;i <:::. cfist I" I o d r o Q u :l. res e a c 1 1 y t w o f i 1 e b f f e i'" s a n d a 1 1 o w s 
f i. 1 e n a fn e t ^ j b e c. h a n g e cJ e a s i ]. y i -f d e s i i'" e d „ 

■ f h :i. s w a <^ . i u s tab r i e f st r o 1 ]. t ri r o u g h the v a 1 D '3 p a c:: }•:; a g e « 
■ r I "I e r- e a r' e ma ri y p o e r- -f u 1 c f n (T\ a r i d s- ]. e -f • t t o e >{ p J. o y~ e „ T h e 

f o ]. 3. o N i n n s e c t i cj n (3 n c o m m a n d w o r' d e p ]. a i n i^;- e a c: h c o 1 1 1 m a n d :> n 
d e t a 1 1 R e a d t }" i r o u g ri t h 3. s s e c t i cj> n c a i- e f u J. I y a n d ( j u t t h e 
c o n { ! n a n d s o n a t e <i:: t d i k . A n d t li e n t h e i- e :i. s t h e F- i 1 e F. d i t o r . 
with its own set of document at i on n in section LXlv. 

Have fun . 



LXl 7 



F :i. le;: D2:: VEFn:FY. 4TH 



000 1 

0 0 0 2 ( R o ix t i n e W r i t e w / o v e r :i. -f y 

0003 

0 Qj 0 4 T h B f (J 1 ;L C) w i r i q i'" o u t i n e all o w w r • i t 

0 0 0 5 c) p e r a 1 3. o in s to t h e c j :i. s h: w j. t o u. t 

Jii) ^;^) 0 6> r Bad v e r" :!. f i c a t i o n T h is s p e e d s ia p 

0 0 0 7 d i s a c: c:: e s s I::) y nr^ a r i y t i, m e s « N cj t e 

(J:^ i^i^) B 1 1" i a t o n c e t. h i v o u. t i n e is 1 o a d e d 

i^-"^ 0 0 9 i t ma y i" i o t. b e -f cj q o "h t: e n ! 

00 1 0 

001 1 F""ormat : ON VEF^IFY 
0012 OFF" VERIFY 
00 1 3 

0 0 1 4 

0015 BASE Q F-IEX 

0016 A9SEMBLEF< 
0 0 1 7 

00 IB LABEL ■-DBK 

0019 AD C, 02 C, 03 Cn C9 C, 52 C, 

0020 00 C, 05 C, A 9 C, 40 C, 4C C 

0021 F-IEF^E 4 "f" „ A 9 C, 80 C, 80 C, 

0022 03 C, 03 C, A 9 C, 31 C, 80 C, 

0023 00 C, 03 C. A 9 C, 07 G, 80 C 

0024 06 C, 03 C, A 9 C, 80 C, 
0 02'5 ( I J I- 0 0 C , f o r F e r c o 1 1 1 ? ) 8 0 C 

0026 08 C„ 03 C, A 9 C 00 C, 

0 0 2 7 ( o r 0 1 C: , i o r P e r c o n i \ ) B D C 

0028 09 C, 03 C, 20 C, 59 C, E4 C, 

0029 60 C, 

0030 

0031 
0032 

0033 ;j VEF^IFY ( f 

0034 0# 7 ^. 50 -I" 

0035 i: disk: 7 •+ :! 



0036 LITEF^AL C! ; 
0037 

0038 •-•08K '■' -DIBK 27 
0039 

0040 BASE • 

0041 



C C3 m m SI 1-1 fdi Wor-cJs 



Introduction and Conventions 

Thp:^ FnP''TH Oi Bk Operatina System can be broken into 
tu.n rn-^H--inr:t Categories. The first contains the system 
word-. ..ahich are for use within running programs and are 

typed directly at the keyboard- The second 
r^tr^qnrv contains "command" words which were designed to 
^M.^rnfr^d Only at the keyboard- Typical command words 
are those that list the directory oi a disk or delete a 

file from the disk- 

rnmmands words differ from normal FORTH words m that 
nP.rec;^.ary arguments are entered following the command 
word,, For eKample, to remoye a file from a directory, we 
woul d types 

KILL UN WANT ED., FIL 
instead of the usual !-QF;TH-l i i^e;; 
" UMWANTED,, FIL.." KILL 

.,.hirh will not work as--iB- The only restriction placed on 
thic: mel-hnd of input IS that absolutely no blanks must 
appear withm the command list since the blank seryes to 
1 i-i d i c a t e t h e e n c:! o f t h a t 1 i s t - T h u s ., ' 

KILL FI!....E:1 „FILE2,, FILE3 
would properly kill the three files specified while 
KILL FlLEl,, FIi...E2,, FILE3 

would kill the first file and then abort with an error. 

In the command descriptions that follow, any P<~^rtiQn 
■of the command format enclosed by the braces " i" ana 
•j oivtional and need not be entered,, . ^ , 

Additionally, some of the commands may be aborted bv 
PK-P.<:.<:vj ng one of ' the yellow console keys found on the far 
right of the keyboard- Those commands which haye this 
feature are indicated by the sentence: 

" T t ! i s c o m m a n d i s i n t e r r u p t a b I e " 
All commands and arguments must be entered in upper case- 



L X 1 1 



1 



V a ]. 1) Q S C o {ji m a i" i d s 



^ — r 1 CZD ^ — p it 

Rel ease f i 1 e buffer and update f i 1 e- 
STATUSs 

User- me m o r y at I--' A D i s u n t o u c h e d . 

CGMHAND FOF<MATs 

CLOSE (f 1 lenumJ- 

0F1i::F-<A T I DNi; 

T' h e C {.... C) S E c: o f n m a n d f ]. u s h e s the f i 1 e b u f f e r ( d i f f e r e n t f r r-^ m 
the FORTH disk buffers) , if updated, associated w:i.th the 
spec: 1 f 3. e d f i I e n u m b e i- T h e d i s k b u f f e i- i s t hen r e J. e a s e ci -f • o r a 
subsequent open (see OF'EN) . Any future references to the 
specified file number are ignored until another OPEN command 
r e - a s s i g n s 1 1 I f a f i 1 e - n u fi i b e r" i s n o t specified, o r' i f i t :i, s 
z e r o . a 1 1. o p e n f i 1 e b are c I o s e d „ 

EXAMF'LEBi: 

clo^-:h::;: 

C 1 o s:^ e a ]. ]. o p e r- < f i 1 e s 
CL..OSE 0 

• ]. o s e a ;i. 1 c: • p e n f i :i. e s „ 
CIJDSE 2 



C 1 o s e f i J. e n u m b e r t n o 



V a 1 D Q 9 c o fii ni a n d s 




Transfer the con tents of one or more files to another 
STATUS s 

User memory at F-'AD is untouched » 
CO MM AND FORMATS 



COPY oLi t f i ]. e \ / A > - i n f i 1 e 1 \. i. n f i 1 e2 C . « « « > > 



GF'IEF^^ATIGN;) 



J 



The 


? c: o n t e n t s o t " i. r j t :i. 1 e 1 


' ' a r e 


t r- 


i t i\ o e s 


D o t a I !'■■ e a d y e k i. s t " o 


ut f i 1 ' 


..1 


si'\» i. i.'. c. \"\ 


1 <:-. r-i r" e e i"i t « the :i. n p 


ut f i 


l.e 


output 


:: :i 1 Bn Al 1 addi t i onal 


i nput 


•f i 


cur r en t 


o u 1 1:) u t f i. ]. e i n t. I"i e o 


r der 


i. n 


dr i ve iw 


B e r B s h o o. 1 ci a 1 b a see F 


MOVE » 





is created:: It the 



1 1 
/A 



E> ;i. n c:i :!. c 



EXAMF-'LES :i 



C CD f- Y 1^1 Y F" ]; l... E. r. B A K - M Y F- :i: L... \ -. 



Transfer contents of MYFILE to MYFILE.BAK on the 
d e f a u 1 1 d i'" i v e u n i t (see S E J U F l 1 T ) 



COPY D2 li PART 1 / A^^^l-' ART 2 



A n p e n ri 1 1-! e f i :i. e F A F^ T 2 f o u n d o n t h e 
t o f :i. 1 e }■•• A R T" 1 f o u n cJ c « n u n 1 1 t w o . 



default unit 



COPY ALLP ARTS-PART 1 , D3 P AR1'2 , P ART-3 



T r a r ! b> f e r t !-< e c o n tents of F' A R I 1 
append PART 2 on unit three to 
and finally, append PART 3 to ALL PARTS. 



to ALLPARTS. then 
t h e f ! e w -f • 1 I e A L.. L P A R T S 



NOTES 



I n 

1 ef t open 



t h e o u t p u t f 1 1 e iTi a v b e 



•l"h^ fv.v/pnt that an error occurs, 
and should be closed using the CLOSE commands 



I.... X :i: :i: 



val DOS Commands 



I) i s D 1. a V list f ;i. 1 e s on d i s k „ 



STATUS s 



(J s e r" f Ti e n) o r y at P A D i f?;; li n t o li c: h e d 
T h i s c o (1) H) a r j d i s i n t e r r u. p t a b I e ... 



Cn(v}|vjAND F-ORNATSiJ 



DIP. <:-f i 1 ospec;!- 
DIF^ uni t 



npEF<AT I GN;; 

The D:i:F-< command lists all files within the directory on 
the de-fault drive unit unless an optional -file speci f i cat i np or 
drive number is specified. If the optional filespec is 
specified, it must resolve to a leoal filename or else an error 
w i 1 1 r e s u 1 1 . j.... i k e w i s e , i f t h e o p 1 1 o n a 1 li n 1 1 spec: :j. f i c a 1 1 o i s 
s u p p 1 1 e (i 1 1 {T ! u s t be a n u f ?^ b e r f r o m 1 t o 4 i n c I u s i v e „ T" h e D I R 
command also displays the current number of free sectors.. Mote 
that the size of a file displayed m the listing is not 
necessar i 1 v accurate un 1 ess that f i 1 e i s c 1 osed „ Houiever the 
number of free sectors on disk is always accurate. 



EXAMPLES!! 



D 1 R 



DIR MYPiLE 



I 1 s t 3. n f c J m a t i o n a 1::) o u t a ]. ]. -f • i 1 e s 
f o u n d o n the d e f a u 1. 1 u n :i. t 

I I s t :i. n f o r m a t i n o n M Y P I L P. f o u n d 
Ci n t h e e f a u 1 1 u n i t « 



DIR D2^t:, 4TH 



D 1 R 



I i s. t i n f r J !- m a t j. o n c;) n a 1 ]. f i I e s wit }- • 
t F ! e e >'. t e n s i c:< r i 4 F f-l f r :> u n d o n u n i t t w o 

I I t 1 n f o r m a 1 1 o n about all f i 1 e s 
f o «..« n ci o n i j ri i t t Ff r e e „ 



MOTES s 



It the D ;[ r: o m m a n ci i s g i v e r' ! w i t Fn. n a file t h a t i s t o b e 
1 o a (i e d a file s p e c:: o r u n i t nu j s t be specified- J h u s t F- j e 
•f i r" t e >{ a /i i p ]. e above m u s t b e ii D 1 R ){< 



X 1 1 



4 



V a 1 D 0 S c o m rn a n d b 



D 1 .A p :i. i r ate an e x i b t i n q ci i s k e 1 1 e 



STATUS n 



PAD is modi-f-ied. 



COMMAND F-ORMATs 



D I SKCOPYl 

DI si<cnPY2 



v.=. i. n Q I e d r* :i. v e c: o p y 
fT^ Li ]. 1 1 d r i V e c:: o p y 



OPERA! I ONs 

D T K C 0 Y 1 3. B f o r ix s e !' • s w i t h c j n ]. y o n e d i. b l-^: ci r i v e « 
i f r- L\ B B r- wit h t w o o r fii o r- e d r i v e s « 



D :i: skcopy:. 



EXAMPLES !i 



D I SKCOPY 1 



r: (J p V a ci :i. s k u s :i. n q o n 1 y ci i v e a n e „ I r"i e l\ s e i s 
prompted to insert the source diskette, and the 
the destination diskette.. This is repeated 
1. 1 n t i 1 t h e e n 1 1 r e s o la r c e ci i s k e 1. 1 e i s- d u p 1 i c a t e c* 



DI SKCOPY 2 



The diskette in unit one is c:opied to the 
d :i. B k e 1 1 e in u n i t t w o 



NOTES s 



V a 1 D 0 >::> C o iVi n) a n c:! s 



ED I 



E d i t a ( F R J \-\ ) s o li r c e ■ i ]. e „ 



STATUES 



PAD is modified 



COMMAND F-(jF;:MATs 



EDIT inii leC. outfi le> 



(JF"'ERAT I GNs 



The input file is read into memory begmninq at PAD where 
the editor is used to modify it. Upon leavinq the editor^ the 
modified file is written to the output file, if specified^ 
otherwise it is written back to the input filel See the valDGS 
F i 1 e E id i t o r • d o c: u m e n t a t i o n i n e c 1 3. o n I.... X i; V f o r f i _i r • t h e r 
i n for mat i on . 



EX AMPLEST 



EDIT MYRTLE 

E i:j 1 1 1 1"! e f i 1 e M Y F 1 L E o n t h e ci e a u 1 1 d r i v e u n 3. t a n cj 
w i t e the m o d 1 f 1 e d v e r s i o n b a c: k t o M Y F- 1 1 ... E; . 

i::: D :i; t d i ^ r a c m a n . 4 t r , o 2 s p a c: m a n „ ^i- t h 

Edit the file RAGMAN. 4TH on unit one and write the 
r e s u 1 1 a n t file i r*^ t o f 3. ]. e P A C M A N „ 4 T H o n u n 3. t t w o . 



NOTES:; 



L X 1 1 



valDGS 



command s 



EiMDF^ I I— 

E^ncifi le at current file cursor position. 
STATUBd 

User memory at PAD is untouched. 

COMMAND FORMA Ts 

E::MDF- XL f i 1 en urn 



□F'ERAT I Ohh 



Thp rnrr^^^^n^ file cursor position v^ithm the specified 
-ic. ,,;.rl.;ed as the new end of that file. All data after 
pl.nt in the file is lost and anv disk space used hv lost 
!L s r' e c:: ]. a !i n « e c! 



f i ]. f 
thai 
d a t '. 



EXAMPLE ;i 




p r\ f ;i. ]. e f i 1 e n u m h o r t w o 



NOTES 5 



r^r-e should he taken if this command is used 
IS open under more than one file numher. 



/ a 1 D 0 S C o m n) and <;:; 



( 



l"l Cf V e the f i ;l e c u r s o r t o 1: h e 



end of the -file 



STATUS ? 



[J s e r- me cj K" y at P A E) :i. s . ix n t o ix c h e „ 



COMMAND F-GRMAT 



EOF f i 1 enu/Ti 



(JF-'E:T<AT I GM i; 



i h e c: Li I'" s o v 
end of the f i 1 e u 



o-f- the specified file is repositioned at the 
T' h e f J. 1 e m li s t a 1 r- e a d v be o o e n „ 



EXArlF-'L Eii 



EOF 



F'osition the cursor of file one at the end ni t-h^t 



c 



NOTES!! 



( 



L X 1 1 



val DOS 



c om man d s 



Enter (create) a f:!. lename :i, n a disk directory. 



It 

n 



U B e 1- fi { e m ( j r v at A I) i s \-i n t o u c h e c:l 



COHHAND FORMAT u 

ENTER f i 1 ename 



OPERAT I ON;; 



d.rectorv? The f:i.lename must not already e..st or an error 
,1 re-M|i-, The file xs created, but ;i. s not opened. MlU-.A-gh 
this command xs usuallv called CREATE, that word alreadv e.xsts 
m FOFriH.. 



4 ^ EXAMPLES;: 

e:ntef< myf tle 



Enter the filename MvpiLE into the directorv on 
the d e f a u 1 1 d i'" i v e t..! n :i. t . 

ENTEF? D2 5 INVADERS,, 4 fH 

Enter the filename 1MVADERS„4TH :i.nto the directory 
on unit two,, 



NO 'rES i 



L X :i; 1 •- 9 



v a 1 D (J S Co in m a r* i d s 



F^DLJMF> 

Perform a hex /ASCI I dump o-f a file„ 
STATUS; 

U s e r- fin e m ory a t l~' A D i. s u t o u c hi e d „ 
This c: c) m (t • a ri d i s 1 n t e r r" u p t a b I e . 



cnjvj}v}p^jNj0 F-nRjvt^vrn 

FDUHF-' f i I enamef/Wj- 



□PER AT I GNii 



I he specified -file is displayed as a sequence of he^ 
numbers and ASCII equivalents. This is typically u^.d for 
.i.uokinn at machine language prnc3rams stored on di-k' Nnrm-^j 
^"■'••"^f ^ bytBS per line, howeyer. if the (fnr "wiHp>'M 

""'■^^^^^•^ ^ f P''"^^^^^^nt, 16 bytes per line are displayed, '"..h. r'h ^1 
more suitable for printE!d output. " ' ' 



EXAIIF'LES 



PDUHF"' NVF:- ILE„ GBJ 



NOTES I! 



Dump the file MYFILE.GBJ to the current nntppt 
device.. Eight bytes/line are displayed.. 



FDUMF- mP lLE^, GBJ/W 



Dump the file IIVFILE.Ghj to the current output 
d e y 1 c e . 1 6 b y t e s / I i i f e a r" e d i s p 1 a y e c j „ 



LXII 10 



V a 1 D (3 S c: o iTi m a n d s 



J r a n b i o r m F 0 R T H s c i'- e e n -format to DOS f 1 1 e -f D i'- a) at 



STATUS s 

F-'AD IB used« 



COMIiAMD FGRHATii 

F I I....E- :[ T BC r :l. sc r 2 <, f i 1 en a me 



□F-ERATIOM;: 

T\v-' -.rreens -f-ram scrl to Brr2, inclusive, are read into 
•free memory. The DOS disk is then swapped into the drive and 
t h e B r r e e n s are w r :i. 1 1 e r-^ t o t. h e s n e c i -f i e d -f i ]. e n a m e 



EXAMPLES 1! 

f I i. .. j::;: ]; T' 5 C' . 6 0 , M V C 0 D E: . -^l- T' } •} 



Screens 50 through 60 are read into tree memory 

■ T" h e Li B e r i s t h e n p r o n ? p t e d t o i n s e r- 1 t h e D (J C3 

•f o r a! a i: d i b k i n t o t h e d !- 1 v e !' he ci a t a i s ri e >[ t 
written to the file MYCODE:. 4TH.: 



NOTES ;! 



I.... X 1 1 - 1 1 



V a 1 D O S C om m a n d s 



C o m p. :i. ], e a F' O F; T H b o u r c: b -file -fro m d :i. sk. 



STATUS; 

PAD :i. B moved by compilation as usual „ 
T h i s c: o n • ivi a n d is in t. e r r u p t. a b 1 e . 



COMMAND FOFilMAl!; 

FLO AD f i lename{:/C} 
F■LOAD f i lienamE'-;;, 1 inenumJ- 

OF'fERATlONs 

The FLOAD command sends the FOITTH source code cent.,-, n.^j in 
tne specified file to the valFOF^TH compiler., Jf th*- /P ^fnr 
■■continue'') s.ntch is given, loading begins at the beqinnmo nf 
^-^^^^^^-i^nf ^^dxtBci m th^, .file editor. This allow. mlr^ 

errors to be -fiMed and compilation to be continued mid fV]Z" 

J., the oprional line number is present,, loadmq proceed^. from 
iinat. line o+ the rile,, 

EXAMPLES! 

FLOAD MYeAME„4TH 

Load the DOS file MYGAME. 4TH -from the default 
drive unit and compile it,. 

FLOAD D2ii CY!:;Lnps^/c 

Load the DOS -file CYCLOPS from unit ti-on ct^.-finq 
with the last line edited m the file editor.. 

FLOAD FOR FRAN. 4 T H,, 50 

Load the DOS file FORTRAN,, 4TH from the de-f Ann- 
unit beginning with the 50th line in the file. 



NOTES; 



it is possible to LOAD a screen from a file bemq Fl OAD^^ri 
and vice versa,. Usual lv„ LOADina and FLOAD, ng '--hr " " 
different units.. Also see ECHO comm-nH,. 



ould done from 



val DOS commands 



r 



S:i.nqle dr:i.ve inter disk file transfer 



TATUSn 

h e m o r y at P A i) i s n s e (d « 



COMMAND F 0PM AT 2 

F" M 0 V E:: e IX t f i 1 e i n f i ]. e 



OPERATION !i 



Thr- FMOV/F command :i. s for those users who have access to 
nniv nn^ disk drive. It is used to transfer a DOB file from 

Hicj.:- to another. If infile is too large to tir ii, 
available free memorv, multiple disk swaps must be made. FMUvb 
w 1 ]. 1 p r o m p t f o r a 1 I n e c: e s- s a i- y i. n p > .a t s , a n d s w a p s . 



EXAMPLE'S;! 

f M 0 V E. M Y F- :i: I.... e: . e a k m y f i l e; 



Transfer contents of MYFILE to MYF 1 1....E . BAK . MYFILE 
•j <~ c-u r» r\ 1 n t o f r • e e m e {7^ o r v . <h:. o u r c e a n d d e 1 3. n a 1 1 o n 
disks are then swapped, and the data stored in free 
f n e m o r • y i w r i 1 1. e n t o M Y F" I L E. . B A K . 



NAVIES!; . .. , , . 

M u 1 1 i d r- 1 V e u s- e r s c a n u. s e t h e C 0 1"-' Y c o m m a n a f o r t h 3. 

p u r p ose 



c 

LXll - 13 



V a 1 D O S C o ii) m a n cl s 



Format a diskette for use. 



BTATiJ: 



User memory between F-'AD and BUFBGT is untouched.. 



COMMAND FGF^MAT;! 



FOF^MAT 



•Cun i t > 



G PIER AT I GNi; 

The FnF;:MAT command initializes a disk tor use v^ith valDnq 
It a unit number is supplied, -formattinq will be a 1 1 ^^mnt^'pH ""nn 
that unit, otherwise the default unit is assumed^ Th^ rn^manH 
will issue verification prompts and will also a] 1 c^rtprc: tn 
be locked so that no file will ever occupy those s^r-tnr-;. Thi- 
feature allows mixing FGF^TH screens virtual memorv) ;.^nri ^ i 
on a single disk. The valDGS 11 disk is an example n-f rn^T 
ihis command also allows the newly formatted disk to be named„ 

EXAMPLES:: 

FORMAT 

F o r fn a t h e d e -f a u 1 1 d r i v e u r-f 1 1 . 



FORMAT 



NGIES!: 



F' or mat unit two,. 



1 h i s c:: a m in a n c j r e p J. a c e s t li e o n e f o 1 1 n 6 
disk. See NAMED I SK., 



on the val FORTH 1 1 



!.._ X 1 1 



1 A- 



val DOS commands 



j1 (::> V e the f i I e c u y- s o r relative t o i t ^iii- c ix rre n t p o s :i. 1 3. o n . 



STATUS s 

User memory between F'AD and BUFBGT is untouched,. 



F S F A C E. -r i ]. e n u m ., c o u n t 



OPERA r I ONd 

T i-1 e c u r s o r cj -f t h e s p e c: 1 1 i e d f 3. I e i fn o v e cj b y 1 1"* e s J. g i"! e ci 

o i T s e t B p e c I f i e ci t:::. y c n i\ n t . J he file c r s o r may !::) e a) o v e d p t a 

32767 bytes :i. n e:i. ther direction, with a negative count spacing 

t o w a r- ci t h e b e g i. n n i n g o t the t :i 1. e « I f t h e c o u n t is zero t h e 
f i 1 e c u r s o i-- i s I e -f t li n t; c^ \.x c h e ci 



EXAMPLES;? 

p- SPACE :l . i 23 



h o V e t h e c. u r" s o r o {■ r 1 1 e o n c^ :l. 2 ■ :> b y t e s t o a r a t i" i c^ 
end c:<f the 1 1 I e» 



P SPACE 2. -'5 4^5 



M o v e t l"i e c: »..» v ^-h- o v o f f :i. 1 e t w o 5 4 5 b y t e b t c::' w a r ci 1 1"! e 
s t a r- 1 o f t h e f i 1 e 



NOTES!) 



S p a c: 1 n g b a c: I w a r d i. g e r' ! e r a 3. ]. y n i u c: h s I o w e r t h a n <;:> p a c: i. r-« a 
•f o r- w a r • ci (d u e t c:) t |-i e m a n n e r i n h i c !i ci a t a i s s tore d o n ci i s k « F o r' 
1 1- ! i <B r e a o n . b a c l-- w a r" ci spa c i. i"^ g s h o li i d b e a v cj i ci e ci . 



I.... X i; I 1 5 



V a 1 D 0 S (;:: ( j m m a n ti s 



Remove tiles and release disk space„ 



STATUSf! 



User memory between F'AD and BUF-BGT is untouched „ 

COrihAND FG F-'^M AT s 

K I LL f 1 1 espec 1 -C /N > C , -f i i espec2 i/N} C , „ „ „ }■ } 

OF'ERAT ION;: 

The KILL command removes the specified -files from the 
s p e c:: i f i e d u n 1 1 . 1 f r f o u n 1 1 is g i v e n i n t h e f i 1 e s p e r -j f r ;.i •{-• i n n 
the default unit is assumed. If the filespec is unambiquous 
:). . e . . n o w 3 ]. cJ c: a d <b ) , n o v e i- :!. f y ji i- o m p t i s i s s u e d . I f t }- i e 
f 1 J. e s. p e c 1 <s a m b i o u { j u s a v e r i f \/ p r o n) p t i <b 1 n e f q r e v e r v f i j e 
about to be deleted unless the /N switch is present^! " 



EXAMPLj;:; 



(•■: 



KILL iHIS 

Delete t :i, I e THIS on the default drive unit,, 
I L L F A R J I „ P A T 2 , P A T Z „ D 3 ;; F' A R T 

Remove files PARTI, PART 2,. and PART 3 irom the 
default unit, and all files found on unit three with 
f i V e I e 1 1 e r n a m e s 1 1-) a t b e q i n w 1 1 h P A R T „ 

K I L I ... * „ B A S ,, * „ B A K / N „ 1} 2 r M Y P 1 1. .. E , J E S T .,;{</ N 



Remove all files on the default unit with the 
extension BAS giving verify promptB,, Remove all 
f i I e s w 1 1 h 1 1 1 e e t e i -i s i o n B A K w i t |-i o u t v e r i l- v 
p r - o m p t s „ I) e 1 e t e M Y F- 1 1... E o n u n 1 1 two,, a n d a 1 1 
f 1 1 e B n a m e d T E S T o r, t h e d e f a ti 1 1 u nit,, 



NOTES: 



( 



r 



V a ]. D 0 S c:: o n) r\'\ a n cl s 



\M r i t e a i" i d m o ci i. -f y - p i'" o t e c 1: -f i. ]. e s o n d i !•• 



STATUS s 

I J B e I'" rn e o r v a t i-' A I) i b u n t o li c: h e d . 



COMMAND F-GRNATn 

l....nCK -t- i 1 eBpec 1 '.: / N> i , i i I e spec 2 i /N> i 



"i ••> 



OPE RAT I ONn 



Th- }...nC!< command protectB the speci-fied -files from beinq 
mndifi-d in anv wav. If the filespec is unambigueus (i.e.., no 
uri id rArd<:0 no'verifv prompt is issued^ If the -filespec is 
ambiguous, a veri-fy prompt is issued for every tile about to be 
1 o c I :: e d u n I e s s t i" • e / M s wit c h i s. p r e b e n t u 



EXAMPLES;; 

LOCK D2;! t 



!.... r J r k a 1 ;i. -f 3. I e s o n u n i t t w o w i t h p r o m | j t s 

L u c K F ]: i... e: / H P A R r 1 , p A F-^: r 2 



ock a 



I I i I e s w :i. t h f i v e ]. e 1 1 e f^" n a m e t h a L s t a r- 1 



■ w :i. t h E' I !.... E: . v^^ i t ri o \.x t p r o m p t s „ I.... o c k P A F-: f 1 a n d F- A R I 2 
LOCK 4TEL, D2s MYFILE, PRGG){</N 

i. o c: {.r; a 1 1 i i I e s w :i. t. h the e x t e n s :i. r-i T H g :i. v i n a 
veritv prompts. Lock MYEILE on unit two, and 
a I 1 f 1 I e B t) e g :i. n n i n q wit h l--' 1-^ 0 B i"^ t h e ci e t a u 1 1 ix n 1 1 , 
w 1 1 h o LI t p r o m p t s u 



NOTES n 



I.... X I I 



V a 1 D (;;) S C o \Ti iTi a r i ci s 



Name a dl Bkette„ 



STATUS;! 



I .J B B r m e nf 1 c J r y a t P A D i b u n t o lk: h e d 



COMMAND FmJRNATs 



NAMED I SK -Cuni t > 



OF-'EF-^ATI ON:; 

The valDGS file system allows disks to nam^d fnr 
Identification. Currently, this name is displayed onl v •, n 
directory listings, but is ayailable for user programs/ Thn 
NAMEDlbK command displays the name of the disk in the spec i i ■] r::>rj 
unit and prompts -for the new name to be entered. Di-U-m^^mp- m^v 
be UP to 20 characters long, and any character may be incii.dp^d 
:i. t h i n t h a t n a (n e . 



EXAMF'LEj; 



NAMED IBK 



R e n a m e t h e d i h:;. k i. n u n it 1 1") r- e e „ 



NOTES 



Disks named in yalDOS will function nroper ly m oth^^r 
D (J r.) ■' s f o r 1 1" ! e A t a r i c omju.t e: r 



V a !l D (J S c o ill f 1 i a n cl s 



of>e:m 



C] f: « E II a T 1 1 e f o r a c cess. 



STATUS i: 




CD MM AND FORMATS 

OPEN f i 1 ename 

□pPRATIONs 

■•j- h e 0 F- E: N c: d m n i a r i d a s s i q n s a b i\ f t e r a r- e a 
n u ill t J e r- t o t h e s p e c i i i e :i. -i- » 

EXAMF-'LEi; 

OF-' EN 'T ESl'.: 4 T H 




B TEST:. 4TH on the 



def aLilt unit. 



NOTES s 




F ^ ] ^ V b e in 1 .1 1 1 1 p 1 V r:) p e n , b u t are ]. o g i c a 1 .1. y d i -f f 

^ ^h^^ DOS is concerned^ If a f :i. 1 e is opened 
nnrP' ..nH an operation such a- ENDEIL :i. s given. i 
b l t r ! ^ -F t h e o t h e r o p e n s v^, n. 1 1 c o n t a i. n d a t a i r i 
l,.,r hnffpr-. that technically no longer exxsts. Note 
dic.|...o <:::.bould not bo o MC h a n Q B d when there are tiles op 




the di sk 



L... X 1 1 ••- 1 9 



val DOS 



Commands 



I.... :j. )B t a ]. 1 t i 1 B s c: i. .i r r * e n 1 1 y cj p e n „ 



STATUS); 



User memory at I-' AD :i. s untouched,. 



npEF<ATTON!j 



,.-...,.,.V^;.H'J''f ^^^^••^^"'^■■^'■■^•^^•^^ ^^^P^^^ displayed alonq with the.r 

:n> c i c. i cri 1. ^ ( J file a c c e s 11 u ! 7 J b e r s « ■■■ ■ 



EXAMPLE 



OPEN? 



NOTES II 



X :i: ;[ 
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V a :i. D 0 S c: d n f m a r"! ci b 



F>Rc I rvi~r 

Display a te^t -file on the current output device 



STATUS n 



U^er memory at F-AD is untouched. 
T' h :i, s c: o fn m a n ci i ~> into r r ix p t a b 1 e « 



R I H J T i 1 e n a r n e i / N 3- <. 1 i n e n u f n > 



□F'E::RAT 1 DNn 



Thp= rnnt^nt<:^ of the BPecitied file are sent to the current 
..ntput d-vir-e. Each line of text is automatically numbered 
HHl^— ^ ih^^ /M s..n.tch IS present. If the optional line number 
specification is supplied, printing will begin with that ime 
of the f i 1 e 



EXAMPLES" 

PFrriMT GALAXY. 4T!-1 

P !'•• 1 n t t h e f 3. :i. e (^1 A L._ A X V „ 4 T I- -} w 1 1 h ]. i n e n u m b e i- s . 

PR INT EDITOR.: 4TH/N 

Print the file EDITOR.. 4 TH without line numbers.. 

PRINI D2:: MYFlLEn TXT., ^^6 

Print the file NYFILE.. TXT on unit two with line 
n u m b e r s , beg :• n n i g w 1 1 1" i the 5 6 1 f i 1 i n e o i t e h t 
3. n t h e f i 1 e 



NOTES s 



I... X 1 1: 



21 



V a 1 D (J S C o m m a n d s 



Kead a :i. 1 e irit. o rnemorv 



STATUS s 



User memory between PAD and BUFBGT is untouched 



COMMAND F-URMATSs 



R E- A D f :j. :i. e n a m e , a c j d r e s. <is C „ c: c:) ix n t > 
R E: a D file !"f u m a d ( j r" e s s i , c o u n t > 



OFERhJ 1 GNn 

In the first form, the specified file is opened and the 
first "count" bytes are read into memory start inn -f f he- 
address specified. If the count is not specified.. the" entire 
file IS read m. The file is left closed^ In the second fnr-m 
Of the command, the first ''caunt^' bytes of the already opened 
file are read into the specified address. The f :j ] i left 
open after the read is complete. Note that the address can be 
specified by a number or by a single word (such as PAD) which 
returns a number. 



EXAMPLES;: 



READ DR I VER„ OBJ, PAD 

Read the entire file DRIVER.OBJ into the address 
s p e r 1 f 1 e d b y A D . T h e f i ]. e :!. s t h e n c 1 o s e ( j „ 

READ 1 , 40960, 1000 

Read the first 1000 bytes from the file specified 

b y 1 11 e f 1 ]. e a c: c:: e b s n u m b e r one i n t c j a d d i- e b s -^I- 0 9 6 0 . 
1" li e f 1 1 e 1 s 1 e f t o p e n . 

NOTES n 

No check is made to see if the data is bei nn r<-/^d 3 ntn 

memory occupied by the PORTH dictionary. DOS buffers, nr vid<-n 
memory „ It is up to the user to supply safe load addresse<^„ 



val DOS 



c omman d b 



STATUS 

U s e r m e ir\ o r y at P A I) i. s- u n t o u c h e ci « 



CnhMAND FGRTTiATs 

RENAhE newname-ol dname 



GF-'ERATIGMs 



T" h e B n e c: i t i e d f i 1. e 1 b q i. v e n t ii e b p e c i i e d i" i e w r" i a m e . T" h e r- e 
must not already exist a file with the same name as the 
specified new name or an error v^^i 1 1 result « 



EXAMRLE?! 

R E N A hE. li Y F :i: i.... e: » -^l- 1" H M Y F 1 L E 

T" h e f i I e 11 Y F- :[ I.... E. is r e rj a m e d a s i^'l V I-- 1 L E. . 4 T" H « 



NOTES; 



V a I D D S C o m m a n d s 



Move the file cursor to the beginning o-f the tileu 
STATUS s 

(.J s e {'- memory at P A D i <3 u n t o li c h e d . 

REMIND filenum 
nF-'EF<ATTG!\h 

T* j" f e c: u r s o r o f t h e s p e c i f j. e c j f i ]. e i s r e p o b 3. 1 1 o n d a 

beginning of the file^ The file must already be open., 

EXAMPLE;; 

Fi!EWIND 1 

K e w i n c j f j. 1 e n u m b e r o !"i e « 

NOTES n 



!.... X :i: 1 



24 



V rj.lD Q S CO m m a n d s 



B e t t h e ci e f a u 3. t ci r i v e u n i t „ 



STATUS 

User memory at PAD is untouched 



COMMAND FORMAT s 

BE TUN IT un:i. t 



OPERA r I ONu 



Mhpn^-v.:.r -filename does not eMplicitly contain a drive 
specification^ the new default drive unit will be assumed^ 
U n 1 1 s are n u ni I::) e r e d •{ • i'" o m c ^ r i e t t o u r . 



■■■•» 



EX AMPLE u 

BE TUN I T 

S e t t. h e d eta u 1 1 u n 1 1 t c:) t w o « 



NOTES D 
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valDGS Commands 



UrvJLOCK 



Unprotect a file so that it may be modified 



STATUS s 



User memory at PAD is untouched „ 



COnMAND FORMAT Ji 



UNLOCK f 1 1 esper l .r/N> <; ^ .f j j espec2C /|\U- C . 



a u n j' 



OPEF^ATIONs 



!he UMLOCK command removes pn-ri-r-rfinn ■fc-nm ■n-m . 
J:.:.es ,,o that th.v „,av ,3,, ,,uj„ ^.oc,;: id? :r 'Jh/'^ rilll;^' 

:l. ssued for F'Vf.^i'-v -fiip -,hr-,M-i- -i -r-, i-..., 1 , ■ vt..! 1 t prompt .1. ^ 

■ ' '-'-i."-'UL 1.0 be unlocked n.n 1 <■-<-. l-hfvv, /m j.^^. 

IB present,, '-Me .. n ;::iAn. t en 



EXAMPLES 



UNLOCK THIS 

Unlock tile THIS on the default drive unit„ 
UNLOCK PART 1 , F^' ART2 , PART3 , D3 3 PART? 

Unlock flies PARTI,, PART2, and PhRT3 from the 
default unit, and all files found on umt thr.>« 
with five letter names that Leg in with PART,, 

UNI..,.OCK ;^ , BAS , * „ BAK / N , D2 : HYP I LE , TEST . * /N 

Unlock all flies with the eM tension BAS vi no 
^'•eriiv prompts,, Unlock all files with th- ' 
entension BAK without verify prompts. Unlock 
Un-ILE on unit two, and all files named TEST 
on Che default unit,, 



MOTES: 



I... 



X 1 1 



Write an area of memory to a file 



STATUS!? 



User memory at PAD is untouched n 



COMMAND FORMATS s 

WR I TE f i I ename , address , count 
W R I r E f i I e r-i ix ? a c j d r e s s . c o l\ n t 



OPERAT ION;; 

TP rhe f3rst form, the first "count" bytes of memory at 
•i-h- c::.pr.rified address are written to the specified 

■■fu"^ Hoes not already exist, it is created. ^ ^'^^ ^ ^ 

lose; i^ter the write.. In the second form, the memory blocK 
>.r3-i-tpn to the already open file« ihe file is le^t. upcn» 

^ <--nor i f 1 ^d bv r:^-i+-her a number or a single 

J e a d d r e ^ii> s c a n I j e s p e ... .1. t 1 (... o l« y .1. - m ^ 

word (such as PAD) which returns a number. 



EXAMPLE' 



WR 1 Tli! 



MYFILE J"- AD., 1000 



aJ r i t e 1 1"! e 1 0 0 0 byte b 1 c: < c k o i- 
specified by PAD to MYFILE« 



jemorv at the add res 



WRITE 1 . 40960. 256 



UJrite the first 256 bytes of memory at 
40960 to the file associated with file 
number one » 



address 
ac cess 



NOTES n 



L.. X I I 



'f • rT. V ^. 1. i::> a s s v -sa. -tr. m 



The -f ol. lowinq set of (-Mords rr^ake up the heart of the valDOS 
<:,v.:,+-f.,rn„ Mote that all of the f ol 1 owi ng words are in a special 
vocabulary named DOS„. Any word which uses one of these system 
operations must contain the word DOS in the definition,, as it 

i s riG(:.;e;H;.s;.ai"y te-«^Hf-G)^R— th-e— compi 1 er--wtei-f2 to Loo!< for — _these_ 

df^^fi nit ions. Since most of these commands are on the system 
level,, a brief description of how the system works is 

Before any file can be manipulated, it must be opened for 
A file' buffer and a status block are allocated for 
each open file,, Additionally, each file has its own file 
c u r s C3 r < w h i c. h :i. !5 p o b i t i o n e c:l at the ta e g i n n i n g o f a f • i J. e at o p e n 

,. This cursor always points to a location within the 
.filr^,. If a bvte is read from the file,, the byte pointed to by 
t-hi^ mrsor is returned and the cursor i s moyed a byte deeper 
into the file,, When a byte is written to the file, it replaces 
the byte pointed to by the file cursor, and the file cursor is 
then bump€-?d „ 

Thus, if a lOK file is opened and five bytes are written 
t r; the f i 1 e „ t li e iirst f :i. v e bytes w i 1 1 I::) e c h a n g e d ., a n <:l t |-i e 
rpn^Ai'nrif-r nf the file will be left untouched,, If the file is 
th*-n closed, the file will still be lOK long,, Most BASlUs,, 
hnuiP.ver., will "end --file" a file when it is closed,, i., e,,,, in 
th-i-^ ev,Hfonle, the file would be reduced to five bytes,. By not 

imnli ri tl v' end filinci a file when it is closed, greater 

fleMibility is gamed. Mote that the yalDOS commands vsuch as 
COPY and EDIT:) do implicitly perform an end -file prior to 

c 1 o-H;; i nt::! a :i. 1 e , ■ ■ i i 

The two most common operations are reading a file and 
writiru-i a file,, Usually when reading a file, the file is 
nnf-ned^ read to the end (eof), and then closed. Oenerally when 
a' file is written,, it is opened, written, end-filed, and then 
c 1 osed „ 



valDOS 



V a 1 D Q S System Wo y d s 



T' !• I i s :j. <B t h e n a rn e of the v o c a b u ]. a r y w h i ^f c o n tains a J. I 



DOS 



ands for Disk 



of the following DOS system words,. 

Operating System (not Software as some cla:i.m). Anv word 
w h i r h c o n t a i n o n e c:) f the f o 1 1 w i n g w o r (d s m i « s t c o n t a :j n 
this word within its definitions s mvi.inrr\ no<^-^ 

DOS IS IMHEDiATE.. 



# EN TRIES n 

A quan which contains the number of entries that 
m a t c: h e d t h e ( w i 1 d ) f i 1 e n a /n e i a s t c h e c: h: e d b y 0 hi K D I R „ C*: }•••} r ) I R 
returns this value automatically.. This yalue can a J "ho- 
used to index the first "n" elements of the table nrnnf,-d 
to by DJRTBL ^ below) „ 



#FF<EE 



A 

en t r i es 



quan whi ch 
:i, n t h e ]. a s t 



c o n t a i ! • • b t h e n u m b e r" o f • r e e d i r- e c t o r y 
d :!- r e c t o r y s c a n e d b y C H K D 1 R 



mJNTRH n 

A q Li a n w I" ! i c h c c:) n t a i n s t h e n u m b e r o f b y t e s j e f t 
untransf erred m the last block read/write operation. This 
yalue is only accurate immediately after the read/ write 
o { J e r a t i o n r e t li r n s- c o n t r o 1 1: o t i". e c a J. 1 1 r i q o u 1 1 n e „ 



(70REN) 



- -Of i:;-/o 

T 1-1 1 s r o u 1 1 n e c h e c: k s t a s- e e if t h e f 3. ]. e s p e c: 3. f 1 e d b v 
I s a p e n . 1 f 1 1" . e o p e r a t i o n 1 s s u. c c: e s s f u 1 . a f 1 a q ;j s 
returned along with the value one. If this flag is (\ the 
f :i. 1 e i s> c 1 0 s e d If a !" s e r- r- o r o r c. u r r e c j . o n 1 v a 7 r- p i 
e t u r n e d . S e e D S l<: E: R R . T h i <;h r o n t :!. ii e u s e s I-- N C; 1 1 M .. 



(OPEN) 



- faddr fl# 1j/0 
T b 1 s r o Li 1 1 r-f e o p ens t f- j e f 1 ]. e s p e c 1 f 1 e d b y ^ „ 1 1 i b 
used to create the necessary data transfer path between 
the application and the DOS. If the open is successful, a 
file t r a n s f e r b u f f e r 1 s a 1 1 o c: a t e d a n d i. s a s s 1 n e d a f 1 ]. e 
a c c e s s n u f t , b e r . A J, 1 <;i^ u b s e q u e n t o p e r a t ;i. o i- , u p o r ? t b e ( j p e n 
f ;i. 1 e r e q u i r- e t. h a t t b i s f 1 1 e n u f n b e r b e s u p rv 1 :i. e d . 0 n ' a 
s u c c e s s f I i 1 o i::) e n , t h e f i. ]. e n u, m b e r and t b e t r a n s f e r b li f f e r 
ad dress are returned „ In most cases. the buffer address 
can simply be discarded, while the file number must be 
s t o r e d b y t b e a p p 1 1 c: a t i o n . F 1 ]. e n u m b e r s are a j. w a y q r eater 
than z e i'- o . e e D S K E. R R „ T b i s i'" o li 1 1 n e u s e s F H C 0 N „ 



L X ;i: 1 1 



val DOS 



(r.\ nsE- ) -fi # 

The (CLOSE) operation closes the data transter path 
associated with the specified tile number « The tile 
hMftf^-r ic:; flushed to disk if updated,, and is freed for a 
subsequent open operation.. If "fl#" is zero, all open 
channels are closed from access. This routine generates 
n o err o r s "i: 1 legal file n li m b e r s a r- e :i. q n o r e d . 



Rach open file has a file cursor which points to the 
next byte to be read or written^ The "end file" operation 
marks the current bvte as the end of the file„ Thus if 
the file cursor points to the fifth byte of a lOK file, 
i-hi.^ mrrent byte and all successive bytes are lost, and 
\n,::. disk space is reclaimed^ This is typically used lust 
hP.fore closmo a file that has been written to. Ihis 
ensures that no "stale" data remains. The command bNDl-lL 
u s e s t i"! i B r o u t i n e 



The filename specified by is entered into the 

riirr:^rfnrv rm the unit specified withm the filename., If 
no unit is explicitly stated, the default unit (specified 
bv DFLUNT) IS assumed „ A one is returned if the operation 
^^ a s ^ u c c: r- s s -f • .1 1 . o t. h e i- w i s e a z e r o i s r e t u r n e d „ S e e D 3 K E. R R 
This routine uses FNCOfT. (This roi.it ine is usually called 
" c r e a t. e " . T h a t n a n i e i a 1 r e a d v ix <b e d i n 0 R T !-l , h o w e v e r ) 



The filename specified bv ^ is deleted from the 
ri-i rp.rtnrv nn rho unit specified within the filename,. It 
no unit' IS eMPlicitly stated, the default unit (specified 
bv DFLUNT) IS assumed.. A one is returned if the operation 
was successful, otherwise a zero is returned.. See DSKEHF<,. 
T' I"! :i. s r o ti 1 1 n e u s e s F M (" ■ (J N 



(LOCK) 

T h e f ;i. ]. e i"! a i yi e s- p e c i f i e d 

n o t b e w r i 1 1 e n t o , I-;: i 1 1 e d , 

i f t. {■'! e o p e i^" a t i. o n w a s u c c 

r e t. u r n e d . e e D S K E. R R ,. T h i s 



h\/ s IS locked so that it may 
o !'•• r e n a n i e d A o i"i e i s r e t u i^" n e d 
s s f u 1 , o t h e i'" w 1 s e a z e r o i b 
r {J u 1 1 n e li s e s F N C 0 !' ••! 



(RDB) •(•].# -Cb i:>/o 

The "read byte" operation reads the ne:(t byte -from 
the tile whose access number is "•f:i#"„ If an error occurs 
a zero is returned h otherwise the byte along with a one is 
returned,, If many bytes are to be read. (READ) should be 
used it possible as that routine is many times taster than 
(RDB) „ Note that i f a read is attempted with the tile 
cursor at the end of the file., an EOF ERR error is 
oBnerated „ See DSI<ERF\„ 



<READ) addr cnt fl# - f 

This operation reads the ne^t "cnt" bytes of the file 
w h o s e a c c e ^ s n u b e r* is " f 1 # " and stores t }"t e iv\ i n m e m o r y 
beginning at '-'addr''.. If an Bvror occurs a :v-ero is 
r e t u r n e d o t h e r- w ;i. s e a o n e i s r e t u r n e d „ T' h e qua r- 1 i4 (J N T R M 
c o n t a 1 n s. 1: h e n u m b e r o f bytes let t li n 1 1- a n s f e r r e d i n t h e 
event of an error.. See DSKERR.. 



(REN) $n ^>o f 

T h 1 s o p e r a t i. o n i^- e n a m e t h e f i 1 e ^ o t o n « A o n e is 

r et u I'" n e d :!. f n o error o c {:: u r- r- e d o t h e r w i e a zero :i. s 
returned „ 



(SRACE) cnt fl# f 

r li e s. p a c;: e j:::. e r" a t i o n !' • e p C3 s i t i o n s t li e c:: u s o r o f t }-» e 
f :i. 1 e w h o s e a c r b <s b n u m b e r :i s " f 1 # " b y t h e signe d n u m b e r 
"cnt". The value "cnt" must lie m the range of -••32768 to 
Z 2 7 6 7 „ A 1 s o n o t e that t h e f :i. 1 e c:: u r s o r c a n n o t b e s r< a c e d 
past byte no. 65,535 of the file.. If "cnt" is zero., the 
s p a c e o p B r- a 1 1 o n :i. b i g n o r e ( j A o n e i. ^i;. r e t li r- n e d i i n o e r r o \- 
o c r u r r e d , o t h e r w i s e a z e r o i s i- e t u !- n e c;! .: 



(UN LOCK) $ f 

1' }■• I e f 1 :i e !"! a m e s p e c:: i i i e d b y i s u n 1 o c k e c j s o t h a t i t 
mav b e w r i 1 1 e n t o i-:; 3. ]. ] e d . o r rename d . A o n e i s r e t u r n e d 
1 f t f"f e o p oration w a s s u c: c: e ^^i. f u 1 0 1 h e r w i s e a z e r • o 1 
returned. See DSKERR.. This routine uses FN CON., 



(WIND) f fl# f 

T h e ( IaI 1 N D ) c o m m a n d i s u s e d t o p o s :j. t i o n t h e f 1 1 e 
c u r s o r at b e g 1 n n i n g cj r- e n d o f the f 1 ]. e :[ f " f " :}. s cj n e „ 
t h e f 1 ;i. e c: 1. 1 r- s r < r- j. s r e w cj 1 1 n d t o t h e beg i n n i n g o f 1 1", e f 1 1 e „ 
This allows the file to be VG-rBadu If "f" is zero., the 
f i 1 e c u r s a r 1 s m o v e cj to t h e e ri c j o f 1 1"] e -f • i 1 e -f o r s u b s e q u e n t 
writing, effecting an append operation^ A one is returned 
i f i: ! "i e o p e r a t i o n w a s s li c c:: e s s f li I , o t h e 1- w :i. s e a z e i- o 1 s 
rcftixmad . See DSKERR „ 



I.... X j. 1 ;i: 



4 



v al D(;]f:> 



y,..,p hyte "ta" is written to the tile VMhose access 
nnml;-u-r i<=. "fl+t". If many kbytes are to be written to the 
'.iiU::. (WRJTF:) below should be used instead, as it :i. s manv 
times faster than (WRB)„ A one is returned if the 
operation was successful , otherwise a zero is returned,, 
See DSKERF? „ 

.'l^ipi TF ) addr cnt fl# ■f 

Tht. hlnrk of memory "cnt" bytes long beginning at 
„nr-. location "addr" is written to the file whose access 
n 1 1 (r. b p r i " 1 1 # " A o n e i s e t u r n e d i f t |-i e o p e r a r i o n w a s 
c,ur rec.c.^ul „ otherwise a zero is returned,, See DSKERR. 



';.,f)(-mPf:;'P f err# 

: Th]- i- one of three (see DOSERR, ';^DSI<ERR) error 
rontin^s ayailable at the system level., It the flag "f 
v-prn, the cvstem error "err#" is generated,, Program 
;-nntrnr' does not return to the word which contained 
■^DOSERR, but to the word which called this :°;„, 
p.-;.,,nl..„ it an application calls (OPEN) ana a :'l)(JfaEKK 
with -in' (OPEN) qenerates an error„ 'iMinSERR will not return 
(nPFM>„ taut to the application, passing a O,, it the 
':>nn<-;FRR nnP>- not qenerate an error, program control will 
y-l:.f,, t- ( n P p; M ) „ D 0 S E R R <:i;. t r e s- t h e e r o r • y a 1 u e i n t \> e 
qnan' nSKERR. See the actual definition of (OPEN) <^ 
gr,rui ..Mamole of how this IS used,, ^:n;)OSERR is essentially 
a SWAP 0= IP DOSERR END IF DROP 



-.r,--,c;|.::pR!::;; f -- 

':>r)m.n=pR i nsp.rt to propoaate an error from one wot- u 

the'neMtV "it replaces the sequence DSKERR '>DOSERR,. See 
? DOS ERR,. 



?WIED ^ ,. ., ........ 

Thi-. i-. quan which contains a one if the 1 .^-t 

filename converted by FNCON contains either of the wild 

■ card characters or "*",. A zero is returned if no wild 
c a r d s a p p e a r e cJ .. 



p,| ippni — addr 

This IS a word which returns the lowest memor 

rp'ss used by the DOS file buffers., 



1.... X 1 1 1 
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CHKDIR n 

1" j - J e c;: h e c k - •• d i r e c t o y- y r o li t i. n e scans t h e dire c t a r v on 
the unit specified within the last -filename converted by 
FNCGN for all occurrences of that filename., For every 
f y-f a t c: hi -f o u n d i m u. 1 1 i p 1 e m a t r: h e s ar e d 1. 1 etc w i 1 d c a r* (.i ) i n 
t h e d i r ec t or y , a d i r ec t or y entry number is s t or ed i n t h e 
I" ! e X t a V a 3. ]. a b 1 e J. o c: a t i c:) n of the n i e m o r y bio c k p o i n t e d t o b v 
D 1 1-: T" B I.... . T" h u s if C hi K D I R f i n d s five o c c u r- r* e n c e s o f a 
f 1 :i. e s p e c: (: h e -f • i r i::;. 1: f j. v e e 1 e m e ri t s o f D 1 R T B L c o n t a i n t h e 
directory entry numbers for those five matches,. These 
v a 1 u e s c:: a n the n b e u s e c i in c o n i u c 1 3. o n with the EN I ' F-< V 
command to access the files,. CHKDIF^ returns the number of 
matches „ 



DFL..IJNT' n 

A LI a n w hi i c h c a n t a :i. n s t h e n li m b e r o f t i" i e d e f a u J. t u n 3. t „ 
This drive number is assumed if no drive specification is 
contained within a filename converted by FNCGN „ Caution^ 
this contains 0 if DOS drive 1 is the default. 1 if DOS 
d r I V e 2 1 s t h e d e f a u 1 1 e t c „ ( f 0 r j [.] drive D G S d r :i. v e 1 ) 



DIRFRE - n 

A quan which contains the entry number of the next 

free e f j t r y i n t h e d 1 r e c t o r v ]. a s t s c a r ? n e d b y t h e G h i l<; D I F-'' 
rout i ne „ 



OIRTBL ad dr 

A word which returns the starting address of a 64 
byte memory block that contains directory entry numbers of 
a :i. 1 f 1 1 e B t h a t n) a t c h e d t h e 1 a s t f i 1 e n a m e c } • { e c; j :; b c j b v t h e 
CHKDIR routine. See CHFa31}-V. 



DIF^GP 

This marks the current directory as being updated so 
that it IS written to disk upon the next DSKFLS command,. 



DGSEF-^F^: err# - O 

This is one of three (see ?DGSEF^R, ';^DSF<ERR) error 
rout i nes at the system 1 evel . DOSERR uncond i 1 1 onal 1 v 
q e n e i- a t e s l: h e err a r w h ose e r r o r n u n i b e r 3. s "err ^- ' ' „ R r o gram 
control continues two levels up (instead of the usual one) 
a n d a z e r i s r et u r n e d . See ? D G S E. R R . 



DSF^ERR n 

A q u a n w h 3. h c o n t a 3. n s t h e e r r o r n u m b e r o f t he la s t 
DOS error that occurred,, See List of Errors below., 



L X :i; :i; :i; 



val DOS 



A routine which flushes the current directory and 
•f r e e b p a c e it i a p if u p d a t e d „ A 1 i li b e i- ( j e f i n e d c ( j rr ! a n d ^i- 
s h o V. I d e n d w 3. t h t h i <b conmia n ci . See s u r c e 1 3. s 1 1 n q t e i'- 
j:i r" e d e 1 1 n e ci c o m ff i a n d f^n- » 



unit n — - addr 

The entry command returns the address oi the 

e n t r v 1 n 1 1 "! e d i r e c t o r y o n 1 1" » e s p e c 1 f i e d r- ]. v e u n :i t . 
1.6 byte entry has the following format n 



1 1 



"nth 



ad d r +0 d 



addr-'^ 1 'n 
add r +-3 2 
ad d r -i-^;; 

add r 1 3 



st at u s 
bit 7 
6 



1 

0 

1 engt h 
f :i. rst 



byte 

File deleted if set 

F i 1 e e n t K- y v a ]. :l. d i f s e t 

F:i. le locked if set 

File random if set 

!•- i. 1 e 3. ! ■ ! Li s e 3. f set ( r « o t u s e d ) 

Unused 

DOS format 2 if set 
F :!. 1 e open f o r o ix t p li t 1 f 
of file in sectors 
(DOS) sector of file 



S I e 1 1 e r f i 1 e rf a m e 

1 eft j ust i f i ed « b 1 an k f 1 1 I ed 

3 ;L 1. 1 e r" e k t e n b i o n ^, 

1 e f t J u s t :i. f 1 e c:l „ b ]. a n k f 1 J. 1 e d 



... (..J 



t 



:i: f a n V c I" ! a n (:i e s are mB. d e . e ; ( e c:: u. t i n g D J: R iJ a r'« d 1) S K F L S w i I 1 
w 1 1 e t f j o B e c:: l"i a n ci e h> t o t:! i !■:: 



ffbuf::.) 



fl# " addr 

w I" } e n eve a f 3. ]. e i s o p one d a 1 2 B b y t: e t r a n b f e r b li f f e i- 
a n d a U> b v t e s t a 1 1.1 s b 1 o c i-:: ar e a .1. 1 o r a t e ci T" h e F L B U F ;i) 
c c. m iTi a n cj i- e t u. r n s t h e a ci c i r e s- s o f t h e f 3. 1 e s- tat u s- b 1 c:« c:: k 
associated with "fl#".. The 16 bvte table contains the 
f o 1 I o w 3 n Q 1 n f o r a « a 1 3. o r 1 n 



ad dr -t- O!: 
adcir "I 1 " 

add r +3;; 
aci d r 
addr •^■■7 s 
adcir •' •8 n 
addr "t" 9 s 
add r + 1 Os 
a ci ci r 1 1 
aci cir -i- 1 3i! 
addr -i-l^!; 
addr 128;i 



}■•- 3. 1 e s t a t u s b y t e ( s e e EN 1 RV ) . 

C u r r e r f t size o f file in sec t o r s 

1 f li i q h b 3. t 3. s set. f 3. 1 e 3. s u p ci a t e < j „ 

F i r s t i D 0 S ) ^h;. e c t o r- oi f 3. 1 e . 

( F D R T H ) s e c: t o r " c: u r 1- e n 1 1 y i n f i. ]. e b u f f e r . 

M u m b e r o -f b v t e s i n t c: < c u r r e n t b e c t o r „ 

I. J n i t a s B o c 3. a t e ci w 3. t h t h e f 3, I e . 

E n t r V n u m b e r 1 n t l"i e d i r e c t o r y . 

h.| o n ■•- z e r c:« c: u rent s e c: t o r i s u p d a t e d » 
( r e B e r" v e (j f o i'" ) C u r* r' e n t r a r'^ d o a\ b 1 (::• c k u 
( r- e B B r v e ci f o r ) F< a n ci cj m b 1 c:« c k u p d a t e f 1 a q « 

N u fTi b e r o f b y t e b i n t o f 1 i. e ( u r" 1 s 3. q f i e <d ) « 

A ci d r e s s o f 1 28 t j v t e f 3. J. e b u f e i'- u 



{.... X 1 1 1 



val DOS 



FLFLS 



•f.l# — 

T h i s o per at 1 o n f 1 u b h e s the -f :i. I e b i.a f f e r- 
w:i. t h t h e -f :i. I ac c ess n umber " f 1 # " 



associ a ted 



(•••NCGN 



$ - f 

The FMCGN command takes the -file specification $ and 
c o n V e r t s :i t t o d :!. r e c t o r" y f o r- ri) a t ( i „ e . , ]. e f t .;i li s 1 1 -f 3. e d a n d 
b :!. a n k f :i. ]. .1. e d ) . ]; t s t o res t ^^ e 1 1 byte t o r matted -f 3. 1 e n a m e 
a 1: •(: h e me m o r y ]. cj c a 1 3. o n p c j i i-) ted t o b y !■•• N }••• !.... D . A 1 ]. i^^^ 3. 1 c j 
cards are converted to question marks,, thu^, ^'I'ly'-'Fll "M" 
1^1 1 1 become "MY?F:!.L/;^';^';^';^v- Additional 1 v, i -f a drive 

s p e c :i. -f • i c a 1 1 o n 1 s c: n n t a 1 n e d 1 n t h e f i 1 e s p e c . 1 1 3. s 
determined and stored m the qu an UNIT,. If no drive 
s p e c: i -f 1 c a t :i. o n w a s s u. p p ]. i e ( j the e -f a u 1 1 u r 1 1 1 (in D F' I.... I J M T' ) 
1 s s 1 0 r e d :i. n I. J M 1 J . F- N C G N w i ], 1. a J. s o p a r- e o l .i t a s 3. n q ]. e 
s i -M 1 1 c i- i ( " / s " ) w h ere t h e c: h a r a c t e 1- ' ' s " i ^> t o r e d 1 n t h e 
q u a n !••• N S W C j-l . T -f n o s w 3. t c: h i ^ f • o u n d a z e r c 3 3. s s- 1 o r- e d 1 n 
F-"' M S IaJ G IH „ 1 1 a )" ? y \m i I d c a r" ( J s a p p e a r i n t h e f :!. ]. e 

specification, the qu an ^;^WILD is set to one, otherwise 
zero IS stored.: If no errors were detected, a one :i. s 
r e t u r n e r1 , o t h e r v■^ i !;b e z e r" o 



MFL..D 



a c:! d r- 

A t::^ c!) 3. n t e r' t o a n e ]. e v e j"i b y t e s t o r" a q e 
c o n t a i n s t h e f :i. ]. e n a / ii e last f o r jn a 1 1 e d b v F N C G N „ 



ivir ea wh i ch 



F-NSWGF-! - s 

H q u a n w h 1 c h c o n t a i. n s. the A S C 1 1 v a 1 u e o f t h e s- w 3. t c: {1 
in the last filename converted by FNGGN., I -f no switch was 
p r e B e n t . j--- {\l S W C F -! c c:. r 1 1 a 3. n s z e 1- o See F N C ( J F! „ 



FSMAF"' - - ,^ddr 

A word which returns the address of the current free 
space map:, 



F"'ShUF--' 



The F-SMUF"' command marks the current free space map as 
b e i r-^ q u p d a t e d 



IIAXF-L 



i-i c o n s- 1 a !■ ! t w I" 1 i c h c o n t a 3. n s t !- ! e m a >{ 1 m u. m r\ u m b e r o -f t i ]. e s 
t |-i a t c a n !::) e c:) p e n at a n y g i v en t i ai e „ T h 1 s has a d e -f • a u 1 1 
value of four. If this constant is changed. val DOS must 
b e c o fT! j::) ]. e t e ]. v r e ]. o a d e d „ 



I.... X j; ]: ]; 



8 



val 



DOS 



T'AD!-: n 

A-f-ter a block read /write operation, this quan 
contains an address one byte higher in memory than that o-f 
t l"i e Last b y t e t r a n s- f e r* r ■ e c J . T' h i. s c: a ri be li <b e d t o ci e t e r \\\ i n e 
h o w m Li c: h d a t a w as t r- a n s •(•erred in t hi e eve n t o -f a n e r* r" o r „ 



UN I T 



n 



A cj 1 .1 a n w f"! i c h c: o n t a i n s 1 1-| e ia n i t s p e c i -f • ;!. c a t i o n o f 
last -filename converted by F-NCGNn Note that this 
FOF^TH unit (i.e„. FORTH unit DOS unit-l)., 



t h e 
i s a 



IaIRKSPC - addr 

A nuan which points to a 128 byte scratch area used 
b y fit a n y o -f t h e <b y s t e n i words d e s c r :i. b e d a b o v e . J h is is tree 
t o 1'" I ,.1 s e r a :< 1 i <:: a t i o n b e t w e e n v a 1 D D S s y s- 1 c? f t > c:: a i. .1 b 



I... X :i; 1 1 



val DOS 



Y 1 Q Q ^i Q 9 fi! § Q d § y Q Q p r t ^-^^^ ^"^ r ^"^ 



'?M:hDERF< n err# - 

L 1 }•:: e 7 V) O S R b u t prints the e r r o r r(\ b s sage., c 1 e a r" <;=. 
b o t }• I s t a k s ^ a n d a b r- 1 s p r o q r- a m e x g c: u t i o n t h r a ugh Q U 1 I , :!. f 
the status flag "n" is zero,. If "n" is true., ?CMDERF^ 
returns to the calling word„ 



SVSERR n 

I.- 3. k e ? D B !<: E R F^^ , I::) li t a b o r t s t h r o u g h ? C: M D E F< R i {■ 
era, Tf "n" is nan -zero, '^^SYSERR returns to the calling 



n " 3. s 



'"'WRGARG 



T h :« s I s a n a b b r- e v 3. a 1 1 o n f c j r- IaI R B A F-\ G ^? C: M D E. R R 



CONEM addr unit 

T h e C (J {\! F M r ( j i . » 1 1 n e t a h: e <::^ the d i i- e c t o r y f e i- m a 1 1 e ci 
■filename at "addr" (usually ENELD) and converts it to a 
string.. The drive specification "unit" is attached to the 
beginning of the filename (i.. e.. . unit - o would np:.n('-r -^t ( 



ChDERR err# - - 

i... 3. k e I) G S E R R , C M n j£ p |:v , , q -j f j •} j y ^ ^ ^ ^ ^„ ^ 
e r - r o r- e:- |:j e c i f 1 e d b y ' ' e r r # " . 



ECHG GN/GEE 

W f » e n e h o :i. s G M , a 1 J. -f ;i. 1. e s b e i n g 1... G A D e cj w j. J. }. j::) e 

e c }•• f Cf e rj t o t h e c; u r r e n (: ( j u t p u t d e v :i. c e ( ) . W h e n e c:: ji o i c;. o f- |:- , 

r'l c J o u t r < u t i. s g e n e i- a t e cL ' 



EIaJGRD c 

F-i: e a rj t e n e ; : t t e t c: fm r a c t e r- s t r o m t li e 3. n p u. t f i ]. e 
w h o ^ e -f 1 ]. e n u m b e r i s 1 n t h e c} 1.1 a r- 1 F L F L ii^ ( F L 0 A D 3. n i. 1 1 a 1 1 z e s 
EEEL#) until a delimiter "c" is found, storing the packed 
c h a r - a c t e r- s t r i n g !::> e g i i". n ;i n g at t ^l e d i c t i o r ! a r y b u f -f e r- f I Fi- R F:! „ 
F W G F-< D ;i. e a V e s t b e c I" i a r" a c t e i'" c a u n t 3. n t fie f i r s t byte 
•f o I 1 o w e rj y t b e c ii a r- a c:: t e 1- s , a n d e n d s w 1 1 h t w o o r- m o r" e 
b 1 a n k s . L e a d i r j g o c c u r r e n c: e s o t " c " are i g f kj r- e d „ M o t e 
that "c" may not be the return character (ATASGll 155) „ 



L. X j: :[ 1 - 1 0 



val DOS 



(3E-TVAL n 

I f $ 1 s t h e n a m e g -f a i. c t i. o n a r y w o r d , t h b w o i- d i r:r> 
executed and had better return a single value,. If 1^ :i. b 
not found :i. n the dictionary, it is assumed to be a number 
a n d 3. s c o n v e r- 1 e d 1 e a v i n g the n u b e i- n « (3 E I' V A L i s u s e d b o 
that addresses may be stated explicitly, or by reference 
(PAD, HEF^E, etc.. )- 



GETAF-<G9 1->/0 

1 h I s r o u 1 3. n e c:; o n v e r t s 1 1"^ e n e t n o n •-• I :« I a n k set o f 
{;:: h a r a c:: t e r s :i. n the i n p u t s t !'" e a fT^ to a s t r :i. n g I f a set o f 

non blank characters is found, it is returned along v^d.th a 

o n e I f n ( j ^:;> e t is f c: < l» n d a z e r c :i. s ret u r n e d „ 



(3ETAR6 ^ c - - C^l ^2 0'} 

T h e s t r i n g i *b d i v i ci e d into two p a r t s n b r o k en at t h e 
first occurrence of the character "c".. If the character 
•'c" IS found m the leftmost portion of ^ is returned 
3rd on stack, the rightmost 2nd on stack, and 1 on top« If 
"c" IS not m the string:, the original string along with 0 
i s returned „ 



I, ..XI II -11 



val DOS 



System Errors (all are CONSTANTS) 



AMBNME 



n 



A a) b i. q o u. s- t i. 1 e n a m e « T his err o r i s gene y~ a 1 1 y i s s u e c J 
w l"i e )i a f i ]. e spec: c o n t a i n i. n q w j. 3. d car c.i s i. s- p a s s e ci t o n e (::• -f 
t. hi e I J r i m i t i v e f :i. 1 e c:« e r a t { r- s 1 i k e ( Q F' E N ) (i^ r- ( K I L L ) 



{ 



BADFL# 



n 



B a ci -f :i. 1 e n u rn b e i'"' a T h e e i'" r o r i s 
n Li. ff! ta e {' • { j o e b n o t I 1 e in t h e r a n q e-? 1 

o f f ni.J.f" ) « 



q en er at ed v^Jh en a •(• i 1 e 
< fl# < NAXFL (de-fault 



BADFSM 



n 



B a d f r e e s o a c: e rn a p » 1" h i s i s i s s u e-? d v-\ h e ri t h e n u m b e r 
of free sectors does not match the true number of free 
s e r t o r s . li- t h 3. s e r r o r i s r e p o r- 1 e d , a n e w c j i s k s h o u 1 ci b e 
< n a d e a n d a 1 ]. f i 1 e s h o u 1 d be t r" a n s -f e r e d t o t h i s n e v) d i s k 
us:l. nq CGPY or FNOVE„ 



BADNME - n 

Baci filename;: The -filename passeci to the system 
routine contained an illegal c::haracter, or was too long,. 
File namc?s c::an only contain the letters "A" thrc:?ugh "Z" 
and the digits "O" through "9"„ Note that the first 
cliar ac::ter of a filename must be a letter. The twc> lAiilci 
carcj characters and are also allowed^ 



( 



BADUNT 



Bad 



n 

c.i r" 3. V e 



spec: i f i c:at i on 



A dr 1 V e n u m b e r s 



n c o u n t e r- e d t h a t d i d n c:) t lie in the r a r i q e 1 < u r' « :}. t 



DIRFLIL n 

D i r e c: t o r y i s f u 1 J. 1' h e i'" e 
d :}. r e c: t o r v . K i 1 1 s o m e u n w a n t e d 
a «;;} a :) n 



3. s no mc:«re room in the 
f i ]. e s a n d t r v the o !::> e: r a 1 1 o n 



DSKFUL... 

D i s k i <:i^ 

ci i s h: „ f: 3. :i 1 

a a i \ " '\ ^ 



n 

f u. 1 1 . 
scjme 



There are no mci^re free set: tors cjn the 
L.I n w a ff t e ci -f i 1 e s and t r* y t h e c: « p e r" a t i o n 



EGFEF^R 



n 



End 



r e S Ll J. t 

mark . 



of file has been reac:heci„ This errc^r generally 
from an attempt to read data past the end of file 



FLDNE 



FLEX ST 



n 

File cioes not exist:. 



n 

F" i 1 e a I r e a ci v e i s t s 



LXlll 12 



val DOS 



( 



FLNGPN - n 

\'~ i ]. e :i. s r i at ope in „ Use the OF' I:::! hi c o n i m a r- 1 ci a n ci c j d en t h e 

■f • i 1 e „ T' h 1 B e r r o i- s h a l» 1 cl e n 1. y e c: c: u. r when u <f ^ i n q the f i. 1 e 

P r :i. m 1 1 i. ves 1 1 k e ( SI---' ACE ) an d ( W I ND ) 

FLJJPN " n 

1 1 e is ope ri U s e the (" • L.. 0 S E! (~ o m (d a n d t o c: I o s e t h e 

a j: J p - (J p r" 1 a t e file.. S e e C) p E N ? 

FLTBG n 

\ - 3. ]. e :l. 'B t cj q h i q « 1" f i i. error i. s li b li a J, 1 y r" e p o r t e b y 
t h e -f i. 1 e e ci :i. t o r w h e n t h e r- e is n o t e n o i ..i g h i y e e i n e fi j ■ j r* v t o 
e i t t h e -f 1 1 e B i-" e a h: t h e -f 3. ]. e i n t e 1: w e p a r- 1 b . e r" i. « e. e t h e 
F- (J I"': (3 }E "f c:: e m ni a n ci t o f r • e e ii;> e fT i e fT i e ri^ o r ■ y 

Fi...WPFn" - n 

1 1 ]. e i w !'" j. t e i j r' cj t e c: t e d ( :!. c:- c k e ci ) Use t !" i e U N L... G C \< 

r n ff! ill a i-i ci a n d e r- f e r n i t }■■< e 1 a s t o p e r- a t :i. on a q a i n 

•yMFOF-IM n 

T' o o if} a f! V -f • i. :i. e s o p e n « . F-' o r e a c h 1 1 ]. e o p e n . a f • 3, I e 
b Li -f -f e r a n { J a f :i. I e !:> t a t u s b I o c: k i s a ]. 1 o- c:; a t e ch. T' h e e a r • e a 
:i. :i. IT I :i. ted n li m b e r" o f a v a :i. 1 a b ]. e I::) li f • e r E: ( c j e t e r ni 3. n e ci b y t i" i e 
c::onstant MAXFL). If all bLLffers are being used and an 
opo n (") p e r- a 1 1 o n i. s a 1 1 e f n p t e ci h t b. i s e r r o r w :i. 1 ]. b e q o- n e r a t e ci . 
U<SE: t h e C L 0 3 E. c. o m in a n ci to -f r- e e a i j li -f • f e r- „ 

WF<GhRG ■ n 

B a ci / n o a r g li ci j e n t ]. i s t „ J h i. s :i. s- q e n e r a t e ci w h e n a D 0 S 
o o in fii a n d e >: p e c:: t s a I i s t o f a r' q li ir\ e n 1: s a n ci n o n e :i ^;:> s u p p 1 3. e ci „ 
■•}•■ 1-^ :i. s ;] a ]. s o q e n e r a t e d w |-i e n t b e w r* o n g n li ir\ b e r C3 r type cj -f 
a r q li m e n t i;;;- i <b u p p 1 i e ci „ 



!... X I I I -■■ 1 '5 



A note on QUAM structures 



■ ! he ' ' i.i a rf ' ' i s a new F D R T H cJ a t a s t r ix c t u i'" e c;l e v e J. C3 p e d a t 
' / a 1 p a r a n ci i s u s e d i ri t hi i s p a c I-:: a g e Q u a ri b w e r~ e e v i. s e d t e c u t 
d c'j lAi Tf c« n w a f:r> i: e ci a) e rn c::« y a i"i d i" u n t i (Ti e e n c: o u n t e e ci w ("i e n u b i n q t h e 
"variable" data Btruc::ture„ Quans work as -followss (Advanced 
I. .1 <B e )'■• B may want t C3 f o 1 1 o w a 1 C3 n q in t hi e b o u. r c: e c c:) d e i o v t h e s e 
s 1 1"' c: 1 res a 1 s o « 



Defining a quan 
QUAN BINGO 



N C3 1 e that q u a n s d o n o t t a h: e i n i t i a 1 v a 1 u e <: j « T" h i s -f • o v- n) was 
c; h o s e n t o a 1 1 o w -f or e> i fii p 1 e r" upgrading to t a r- g e t c o m p :i. I e d c o ci e 

]. ate!'" on 

G i V ;i. n g a ci i.a a n a v a j. u e s 
1234 rO BIMGO 

N c J t e that i n c e "I ' (") i b i. m n i e ci i. a t e , " T (J B I N G O " c c j m p :i. 1 e <;!;• t o o n i y 2 
bytes instead o-f the 4 bytes that wcjuld be required if BINGG 
wer e a var :i. ab 1 e ( i „ e . ^ B I HGD ' ) „ 

(3 e 1 1 i n g t li e v a 1 u. e b a c: i =: t r' o f ti a cj u a r't s 
BINGG 

G i. m p 1 V s- a y i n cn t h e n a ni e o i t h e q u a !"i w :i. ]. I ]. e a v e 1 1 s v a I u e a n t h e 
s t a c:: k , m t hi i. b c: a !B e 1 2 Z 4 1 n t hi i !E^ way,; q u a f i <=:• a c t. !!. i k e 
c: c:i n s t a n t s B I N G C J a b c: • v e a 1 s o c. o nf i p :i. I e b t o c- n !!. y 2 bytes i. n s t e a ci o t 
t h e A- b y t e b r e q n i r e d to f e t c: hi ;i. t i -f :i. t w e r- e a v a r- i able ( i e » , 
BINGG 

G e 1 1 i n g t hi e a d ci r " e s s o f t hi e data i r i t hi e q u a n ;i 
AT BINGG 

1" hi i B 1 ]. I leave t hi e a ci ci y~ e s s- cj -f t h e i i r b t hi y t e o i ci a t a i n 
B 1 N (3 ( J c:i n the s t a c k , o r c o m p :i. 1 e the addrB s b as a i. i. t e r- a I i -f 
e r-i {" o u n t e r e ci d u r* i. ri g c:: o m p i. ]. a 1 1 o n (A T' i s . :uin m e i:i i a t e » ) T h i. s- i s- 
Li s e f u I -f Cf v a v a r i e t y o f p r- p o s e b in g e n e r a i. p o g r a rf i ni :i. r-i g a )-i ci i n 
i n t e Y" f a c: i n g t o ni a c:: li :i. n e ]. a n g u age r c:« u. t i n e b 

Advanced user' s 

T' h e F ( J R T IH cit ■ :> S t a n d a r ci a p p e a r" s t o !!. e a n t o w a r ci 

' ' n o n - !5 1 a t e - b / t i a !'" t " w o r " d s w hi i c:: h i b p r o p e r -f • o r target - c o fn p i. 1 e d 

a f :) p 1 i c: a t i o n . N e e p e c:: t t o i.i p p o r t b o t hi "state smart" a n ci 

' ' n o n B t a t e b /t i a r t ' ' v e r b i o n s o i v a v i o u s w o r s . a s a p p r* o p r i a t e -f c:) r 

d :i. f -f c? !'■• e n t u s b r b 

Note that whi i I e 

1 5 A i ■ B I N G (3 4- ' a n ci 1 5 B I hi G 0 -i- T (J B i! N G O 

i'B.cco ni p 1 i B hi the b a hi e t a s l< a n ci t a I-: e t hi e s a fii e a nfi o u n t of in e ni o y ^ 
t hi e f i V B t V e r b i o n i b f a s t e r b y o n e p r i m i t i v e n e t „ 



r h e m o B t B :i. g n :i. f i. c a ri t i n t e r n a I feat u r" e o f a C3 a n i hii- t. hi at it 
has 3 cfa^'s instead of just the one common to most F-GRThi words. 



This initial four byte disadvantage is overcome at the second 
use of a quan. and so {joses essentially no problemu When a quan 
7^" y.,rjt preceded by "TO" or "AT% the first cfa (quani)) is 
r a i-i) p 1 1 e d i n . I f t h e q u a n is p r- e c e e d by " "I" O • ' , t e s e c: o n d c f a 
(quan') is compiled in., And if the quan is preceded by '•AT'S 
the third cfa Cquan) is compiled into the dictionary.. 



v/aiDDS File Editor 



Ver si on 1 0 
Oct. 1982 



1" h e F (J R T H I a n g i-i a q e is a v e r y p owBr -f li 1 a d cl i t i o n t. o t. h e 
Atari home computer,. F'roqrarns which are impossi^ible to write in 
B A S I C ( LI s Li a I I y tj e c a li ^ e o f 1 i n i 1 1 a t i o r « s i s p e e ci a I'l d f 1 e i b :i. J. 1 1 y ) 
can almost alwavs be written in FORTH^ Even when one has 
I i ! a f^:. t e r e d t h e B A S I C 1 a n g li a g e . « Tf a k :i. n g c. o r- r e c 1 1 o n e> o r a d ci i t i c* n b t o 
i::) !'•• o g r" a s c: a n b e t e d i o u s I " h e v i d e o e d i. t o r" d e s <::: r- 1 i::) e d fi e r* e 
r e IB o V e s t h :(. s p r o b 1 e m t r o fit t {- ( e F Q R 1 R e n v :i. r o r"i fn e rf t Si m i 1 ar t o 
t li e li F. M Cl I'"' A D t li n c:; 1 1 o n i n 1 1"? e A t a i'" i o p e r a 1 1 n g s y b t e in , t }-i i s 
editor makes it possible to insert and delete entire lines of 
c {J d e i n s e r t a n d ci e 1 e t e <::;■ :i- n g 1 o c; l"i a r a c t e r s , t o g g i. e b e t w e e n 
insert and replace modes, move entire blocks of textj; and mLich 
mor e „ 



F :i 1 e E d i tor 



<:| s i 
iT\ i c: 

t. h E' 

■for 
t. h e 
•f unc: 

i fY»pc 
t h i. <: 



This 
q ned 



editor is a powerful om tension to the valFOF^TH syste?m 
speci-f ical ].y for the Atari 400/800 serieE> of 
ocofiiputerB.. The main purpose for this editor is to give 
F D R T H p r c:) q r a m m e r a n e a s y m e t h o d o f t e t: e n t r y t o D (3 S f i 1 e 
tiii. u. b' s- e c:) u e r"f t c: o m p i 3. a t i o n . F~ c:« r t hi (3 b e a ]. r e a d y f a m i ]. i a }■'" w 3. 1 1- -i 
V a ]. O R T H 1 . 1 s c:: r e e n e d i t o r" t h i s edit o i- is v e r ■ y s i m :l. 1 a r i n 
:tion« In factj, all of the commands found in that editor 
:ept Ctrl -A) are supported in the file editor. More 
jrtantly, manv additional capahilities have heen added to 



ed i tor 



They ares 



1 ) 

9) 



•••r V 



4) 
6) 

"7 ) 



T a b s t o p s c. an be ^h> e t / r e t 

S p 1 ice ( u r } s p 1 i t ) :i. s n o v\i b u p p c:? r" t e <d 

Gl obal pattern searches 

A repeat f i.a n c: t i o n w h i c I" $ repeats t h e n e >i t 
c o n\ m a n d / 1^: e y typed u n t i 1 a c o n s o 1 e key i s p r' e s s e d 
F ;i. 1 (^::! merge ( i e » r e acj i n q a f i 1 e into a f i I e ) 
T' r u. e s i n g 1 e --- / m u 1 1 line s c r a 1 1 i f i g e i t h e r 
'^orX'^ui^rd or backward 

]: n p u t a f I ci o u t p u t file <b m a y be d i f f e r ent 



T h e e d i. t o r h a s f o u i'" I;:) a s i c f n o c j e s o f o p e r" a t i o n s 



■| ) 



2) 



It allows entering of new text into a file as 
t h a u g h t y p i n g o n a r" e g ix I a r t y p w r 1 1 e r „ 

1 1 a 1 1 o w s s i n f p 1 e m o <d i f :i. c a t i o n of any t e >; t 
w i t h a |::) o w e r f u 1 s- e t o f s- :i. n g 1 e s t r a k e 
e d :l 1: i n q c o m m a f j ci s « 



3 ) ]: t |:j 1 n p cj i n t s e x a c 1 1 y 
has occurred and set^: 



wh ere a c omp i 1 a t i on er r or 
. u, p« t !"i e e d i t o r f o r- 



:i. ir\ m e d i a t e c a r r e c t i o ri and r e c:: o m p i J. a t i. a n 



the 
spl i t 
i t s 



T h e B e t of SI n q 1 e t r a k e editing c o m m a n d s i s a s u j") e r- e t o -f 
the functions found the in MEMO FAD function of the standard 
Atari operating system,. In addition to cursor movementn single 
c: haracte r i n s e r t ;i. o n / c:l e 1 e t :l. on, a n d 1 i n e i r> s ert i o n / d e 1 e t i o n 
e d i t o r s u. p p o r t s a e I e a r 1 o - e n d r.:« f- - 1 i n e f u n c t i o n a 
command which separates a single line into two linesn 
complement splice (unsplit). global searches,, and many other 
f e a t u r e s u s u a i. 1 v -f o u. n d o n ]. y 3. r i h i g h e r q la a ]. i. t y w r d }::) r ck: e s- s o r s 
a n d a 1 m o s t n e v e r' i n f lie e c! 1 1 o r* s 

A 1 s o }::• r c j v i. d e d i s a v i. s i b 1 e e t:! i t t c j r a g e b li f f e i 
a 1 ;L o w s the use r t o m o v e , r e p lace,, a n d i n s e r" t li p t ( j -3 2 O ]. i r •« e s o f 
t e >i t at a t i f e T h i s feat li r e a 1 o n e a 1 1 o w s t h e F- O R 1 ' H p r- o g a fii <)) e r" 
t o e a s i 1 v r e o r q a r i i z e s o u r' c: e c: o d e 



wh 3. ch 



w i t h t h e add e d b« e n e f 1 1 o f 



LXIV 



1 



F lie 



Edi tor 



knowinq that re-typing mistakes are avoided^ Usage has sho^in 
that once edit-buffer management is learned, significant typing 
a I"} d p r a q r a ffi m i. n g t i in e c a n fo e a v e d « 

f"or those times when not programming, the editor can 
ci a u b 1 e as a si in p ], e w o r d p r c: e s s C3 r" for writing 1 e 1 1 e r s a n d 
f :i. ]. i. :[ n g o t l"i e r d o c: u m e n t a t i o n n e e d s „ P e r h a p s t h e b e s t m e t h o d -f o r 
learning how to use this powerful editor is to enter the edit 
! if ( J d e a n d t r y e a c h o f the f c:) 1 1 o w i. n g c o fn m a n d <b as t h e y a r e 
e n \z o u n t e r e ( j i. r i t h e r e a d i f i g . 



NOTES 



■ I h 1 s e d 3. t o r c a b e \.x BBd to e n t e r a s s e m b J. y ]. a n g u a g e s o u r c: e , 
P a <Ei c: a J. , o r any ( j 1 1 "i e r- text o r- i e n t e d data.. 1' h e o n 1 y 1 i (Ti i t a 1 1 c::* r 
Li p {J n t {" ! 1 s i s. t |-i a t n o J. :i. n e s may be 1 o n g e r 1 1"! a n ::!:: B c li a i'- a c: t e r s i n 
:i. e n Q t |-f :. A d d i 1 1 o n a ]. 1 y , t h i s e d :i. t o r c a ri e d i t files c r- e a t e d f r o rr 
o t: I • ) e r s c:;. u r c e s h o w e y e i- o n ]. y t h e f i r s- 1 8 c: |- 1 a r a c t e r s o f a 1 i n e 
wi 1 1 be r et ai ned 



I.... X 1 V 



F:i. .1. e E'di tor 



Loadi nq and Entering th§„...i<;iit9!:: 



To load the editor, -first load valDOS as described in 
"Strall:i. nq Through valDGS". Next, insert the valDGS i I disk 
a n d list B t: r e e n 1 7 0 u T h i s s h o u 1 d tel. 1 y o u exactly w h i c h s c r • e e n 
to lDad» The edit mode is initiated using the EDIT command. 
T I" ! 1 ^ c o m ro a n d h a s- t !i e i o ]. :i. o y'-nng to i'" a t ii 

EDIT inf i le Co outfi leJ- 

1 h e D 0 S f i 1 e " i \ ) f i. 1 e " i s :i. o a d e ci f o r e c:l i t i n g .. hen all c: h a n q e s 
have been made and the file is saved, the modified text is 
wr 1 tten to the f i 1 e "outf i 1 e" , i f sujDpl i ed , otherv^n se i t i s 
wr i 1 1 en b ac k t o " i n f i 1 e " « 

1 f ! s e r t a c: o p y of y o r v a ]. D 0 S 1 I d i s k a n d t y p e s 



EDIT FILEIT.. 4TH« MVFILE 



f 1 1 e 
edi t 
f i ve 



i ndi cates whi ch 
the size of the 
the buffer is 



T hi e e cJ i t o r i 1 1 d i s p lay s o n i e i n f c: « r- m a 1 1 o n which c a n I::) e i q n o r e d 
for the time being, and then it will i^^ait for the return key to 
be typed. After pressing the return key., the display should 

1 ooi-^: 1 i ke f i g . 1 

T h e t o p v\ i n d o w , c: o {T\ | j o s e d o f a s i. n g 1 e 1 i n e 

I s c u r r e r- 1 1 1 v b e i n g e ci i. t e ( j . A ]. s o s h o w n 3. s 
b u f f e r ( d e c r i b e d 1 a t c- r ) „ 1 n t h i s e x a fn p ]. e 

I I n e ^:;> i r i i. e n q t h T h i. s w i n ci o w is k n o w n a t h e r- ■ e a d i f i g 

lAiinchoWn 

The second i-n. ndoN (the text window) contains 16 lines of 
text within the specified file,. This window is 38 characters 
wide and 16 lines high., The white cursor (indicated by the 
symbol "e") will be in the upper-1 ef t hand corner of the display 
a w a 1 1 1 n q e ci :i. t i ri g c (::• ffi m a n ci s 

r h e f i n a 1 f i v e • - 1 :i. n e w i. n ci o w f o u n ci 
d 1 s r) 1 a y i s I-:: n own a s 1 1") e b u f f e r w :i. n d o w 
a ci V a i" i c: e ci e ci 1 1 1 n g a n ci i s ci e s c r i b e d i. n 
sec 1 1 on en 1 1 1 1 ed " Buf f er han ag emen t „ " 



at the bottc^m of the 
This is used for 
greater detail in the 
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F-i les MYF- ILE 



»:;;• 



( F'^outine 



F ;i:le--:i: t 



The -f ol 1 DKii nq 


rout i ne 


I'S! i 1 1 




transfer a sp( 


reified r 


ange 


of 


PQp J}...} screens 


to a fil 


e on 




a DOS formattc 


E?d diBk« 






f-"^" or mat F 1 LE- 


••IT 1st., 1 


ast ^ {' 


i I en a me 


F I LE- 


-IT 10, 20 


,mFi 


LE 


ND te that DOS 


commands 


tend 


t o b e 


]. onc! because c 


error 


c heck 


ing and 


D a r a ru e t e i "" p a r ? 


1 r" I g 







F i a 



LL 



re-edit last file 



( 



"T* I" } i s c o H) a) a n d i s u sed t o r* e e cki t the " i ... ast" f i J. e 
e ti i t e d . It {- u n c t i o n s- i d e n t :i. c a I ]. y t a the E D I 1 
except that no file names need to be ispecified,, 



command „ 



Ex amp 1 e ii 



I I 



< ret > 



< re-edit I1YF1LE ) 



I. 
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F-ile Editor 



WHERE find location of error < ) 

I -f , when compi 1 i ng code, a compi 1 at i on error occurs, 
t h e [4 hi E: F'^ E c o fn m a n d w i 1. 1 enter the edit m C3 d e a n c j p o b 1 1 j. c. n 
the cursor over the last letter of the offending word. The 
word can then be fixed and the file saved for subsequent 
c o m p i 1 a t i o n u <b :i n g t !- 1 e " F' L D A D f i 1 e rm e / C: " c o ni ni a n . 



#BUFE> set buffer length < #lines ) 

i" h e # B U F S r rj m m a n d a 1 ]. (;:• w t h e u s e t o s p e c: i f y t \-\ e 

1 e n ci t h ( :!. n t e \\\ s o f n u m b e o f 1 i r j e s ) o f t h e s p e c i a 1 edit 
s t o r a e b li f f e r 1* h e power <::« f t ^ i e e d :i. t b u f f e r 1 i e s i n t h e 
n Li fYi b e r- o f 1 i if e s that can be s t o red i n :i. t . A 1 1 h o q h t h e 
d e f a I. A ]. t V a 1 u e :i. s five p r a c: t i c e s h o w s 1 1" ? at at leas t 1 6 
]. i n e s B h o u 1 d I j e set a s i (3 e f or t h i s b li f f e r :. T' h e a i a ■< i n i u m 
n Li m b e r o f I i n e s a 1 1 c:) w a f:) 1 e 3. s- Z 2 0 w h :i. c h i s e n o li g h t o h o I d 

2 Li f Li 1 1 scree n <b s i id u 1 1 a n e o li s 1 v « 



INPO display file information ( > 

I f a n e i'" r o i- o c c li r s arid a n e d i t e f i. ]. e i s n o t save d t o 
disk., the „INF-"G command will supply all the necessary 
;i. n f o r n) a t i o n t o s a v e t h e f i 1 e u sing the W F\ :i: J E. c o m m a n d . 
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T' |-i e -f • o I I o w i n g s e c: 1 1 o n s q i v e a ci e t a i !}. e d d e s c i i. }:) t. j. o n o i a ]. ]. 
commands which the video editor recognizes,. A quick reference 
<:: o (7 i m a n d 1 i ii=- 1 c:: a n }::« e -fo u. n d -f o I I o w :i. n g these e c r j. p t i o n « 



C u r IS or Movement 



\A h e n thB e d :i. t m o d e i b -f i r- s t e r 1 1 e r e d v i. a the I::- 1) 1 I" c o m rr i a n d 
a c: »..f r s o r i b p 1 a c e d i n the u p p e r' I e f t a n (d <:: c < r n e r o f the s c r e e n „ 
;[ t B h o u I d a p p e a r as a w l"f i t e b 1 o c k a n d may end c:) bb a b 1 a c k 
1 e 1 1 er „ When ever an y |:; ey i b typed an d 1 1 i b n o t r ec oq n i ed as 
a n e d 1 1 o r c {::) m m a n d =, i t i s p I a c: e c i i. n t h e text w :i. n d cj w I'Si li e r e i: h e 
c u r B or a p |::* ears . L... i. k e w i s e , a n y i i n e f n c t i o n s ( s u c h as delete 
1. ;i. n e ) w c:' k o n 1 1 - 1 e 1 i n e n h f e i"* e t h e c: ix r s o r i. i:h- t o u r? ci « 



r t r" ]. 



.■K 



c t r- ;i. 



C t Y" I 



c t r I 



m c!) v e c Li lin. c J v c o rri in a n ci s- 



T' o c \i a n q e t li e <::: u !'- e n t e d 3. t 3. i n e o r c: I" i a r" a c: t e r 



f o u r c o m m a n d b m a v fo e q v e r i 



'!" h e s e a i^" e !•:: n o w n 



one ot 
cur sor 



c o m m a n c i s T" 1 1 e y a r- e t ! i e io u. r k bvb wit 1"^ a r r o w s o n t h e m « 
These keys niove the cur sor i n the d i r ec t i on Eipec i -f i ed by 
t i" 5 e a r" r- o w «::« n t h e p a r" 1 1 c:: la I a r k e y p r e s e d „ "T' h e v e a i'" e t i fin e s 
!' I o wove r w h e n t h i s :i b ri o t 1 1" ? e a s e 

S i \ i\ i I a r" 1 v , i f t I t e c u r b o r" i. s p o s i. 1 1 o n e d o n t h e 
]. e f t (T\ o B t B d Q e a n d the " c: u r o r" -■ left" c o m n\ a n :!. q i v e n t h e 



c: I ! j'" s o I'" I'M ]. I I ' ' w }'•• a p ' ' t o t h e r i g h t in o s t c I"! ara c. t e i'- 
' ' c u j'" B o r - r 1 q h t " w ;i J. 1 w r a p t o t l"i e left edge,, 



1 ssui nq 



•<ETi.JF':M 



ri e X t ]. :i. n e c:: cj m j n a r' i d 



T h e F< E "!" i J l--^ H k e y p o s :i. t :i. a n the c: li r- b o r cj n the -f i r' b t 

c a r a c:: 1;: e r o f t h e n e >; t 1 i n e „ 1 {■ R E. 1 U 1-^ hi i p i'- e s s e cJ w h e n 1: h e 

c u r" s o r i i::^ o r"j t h e 1 a s t 1 i n e of t h i e -file., a 1 i n e is i n s e r- 1 e d 
a L 1 1" { e e n d c j f t l"i e -f i. ]. e 



TAB 



t a b u 1 a t e c o (ti m a n cl 



T l-j e T A B } e y i s. u b e c:l t o t a b u ]. a t e to t h e n e x t 
t o t h e r i Q h t o f t h e c u r r e n t c: u v s o r c h a r a c t e r 



TAB 



stop 



I 



X I V 



Ctrl TAB 



clear TAB stop 



C j 1 e a r- the tab s top at the c: r e n t c u r ( j r ]. (j c a 1 1 c: « n . 
The de -fault tab stops can be reset bv issuing the RT 
sub c D mm and 



shift TAB ^^^^^"^ '^^^^^^^ -^^^^--P 

Set a tab stop at the current cursor location. The 

de-fau It tab stops can be reset by issuing the RT 
sub c ominan d 



.j.. •! I «::: o ri t :i. n i.a e e a i- c:: hi 



Search -for the next occurrence of the pattern set up 
u 3. n n t h e i--' S s li I j c o / n a |- 1 d « F' a 1 1 e i- n s c:: a n b e u p t: ( j •■ ^.^ 
r h a r" a c. t e r- <5 i n 1 e n q t h . 



^ .. .J.. j . ; e n t e r s ix b c o m m a n d n » ( j d e 

The Duts the editor into the subcommand mode. See the 
s e c t :i. o n e n 1 1 1 1 e c:l ' ' S li b c: o i yi m a n d s ' ' f o r a 1 1 s- 1 o f a v a :i. ]. a b ]. e 
c omm an d s .= 



note: 



Manv commands m the editor will "mark" the tile as 

iipd-ted so that any changes made can be preserved on disk. As 

simple' cursor movement does not change the text i^nndo^M m anv 
v-^ a V n t b e s e c o m m a n d s n eve r en a i'" k t h e f i J. e 



Fi 1 e Edi tor 



Ed.i t i nq Cgmmands 



Editing commandB are those commandB which modi-f-y the text 
I n s D m e r e d e f i n e c j a ri n e i'~ a n d rn a r f.- t he f i 1 e a <b i ..i p d a t e (d f o r 
later saving n 



^•NS character insert command 

When the "insert character" command is given, a blank 

c h a r- a c t e v- i s :i. n s e r- 1 e at 1 1"» e c u r r e n t c:: li r s o r- 1 o c a t :i. o n . t li e 
c u r r e n t c ar a c t e r and a 1 1 c h a r" a c t e r s t o t h e r i g i"} t a r" e 
P Li s. h e d t o t h e \ - 1 g h t b y o r-t e c h a r- a c: t e i- p (3 s i t :i. o i"! . T' |"i e :i. a s t 
c ^ J a r a c t e r o -f the J. i n e "fa ]. 1 s off" t h e e n d a n d :i. <=;. 1 o s t J h e 
i n s- e r t e cJ b 1 a r -i k t h e n 1:; > e c o m e s t h e c: u r r ■ e n t c u r s o r c h a r" a <::: t e r" « 
■■{" I" f 1 B i E. the 1 o g i c a 1 c o f t < p 1 e n n e n t to the " d e j. e t e c h a r" a c: t e r " 
c n m fYi a n d d e s c r i 1:: « e c j b e i c j i-vi „ 



• :: 1 1'" .}. D E !.... d e 1 e t e c: h a r" a c t e r c;: o r h) a !"« c:! 

W !-i e n t h e " d e 1 e t e c:: h a r a c t e r- " c o m f n a n d i, s :i s b u e d , the 
c:: 1.1 r r e !"! t c li r <h;. o !- c: li a r a c t. e r i r- e m o v e d a n d a J. 1 c h a r a c t e r s t o 
t h e r i q h t c:) f t h e c u r r e n t c u r b o r c h a a c:; t e r a r e m C3 v e c;! 1 e f t 
a n e p o b i 1 1 o n . t. I 'l ix b giving a " c:} e e z e " effect,, T h i b :i. s 
I'l o r m a 1 1 y c: a "1. ]. e d ' ' c I o ^ :i. n g " a J. :i. n e . 1 ' h e i^ - i g f"! t m o b t c : h a r" a c: t e r 
o r I t !"f e 1 :i n e ( w h i c h \'^} a b v a c;; a t e d ) i s i^' e r; « lace d w :i. t h a b 1 a n „ 
T h 1 ih;. b e r v e b a s t. ! i e 1 o g i c:: a ;i. c. o m p 1 e m e n t t o t li e 
• ' i n B e r t c o m m a n d " d e s c: r i b e d a b o v e „ 



s h 3. f t M S I i n e i n b e r t c: c. n •. a n c j 

■f ■ !"i e "line- :!. r"? s e i- 1 " c. o m 1 1 1 a n (d i n b e r- 1. b a b ]. a n I:: ]. i n e 
1j e t N e e n t h e c: u y r e n t c u r s o r ]. i n e a r'! cJ t h e ]. i n e i m m e d :i. a t e ]. y 
a b o v e it . 1 f t }" ! i b c o /t j m a r* f ci i b a (r c i d e n t a :i. :i. y t y p e ci , t hi e 

' ' o o p B • ' c: o ! i ! fin a n d ( c t r- 1 C ) ) d e b c. r i. b e d late r c a n )3 e li s e d t o 

r e c o V e r f r o m t h e f t } i. s t a k e „ A 1 s o e e the " f r o ri » b i. .i -f f e r - " 
c o / !i if) a n cJ d e c r" i b e c j i n t; h €^ s e <:: t i. ri r i o n 1::^ li f f e r" ir\ a ri a g e m e n t f o r 
a s i Hi i 1 a c o n i m a r'f i; j „ T' h i s c o m in a n d ix> e r v e b as t li e 1 o a i c a 1 
c: o m p ]. e m e ri t t n t l"j e "1 :i. n e - d e 1 e t: e " c:: o in in a n ci <: j e s c i'- 1 b e d b e 1 o w = 



B 



!•• i 1 B Ed I tor 



■3 h i f t D I::;; L. ^ ^ e 1 B t B iZ O iT\ ^^^) B n C\ 

T he "1 i n b ci b I b t b ' • c: o m m a n ci <:i b 3. e t e s t h b b u r r- b n t <::: li r b b r" 
]. i n B 1 f t h i s r o n) m a n d is a c c:: i d b n t a 1 I y i s s u. b d . r- b b o v b i^" y 

can bB madB by issuing thB "oops" comfj^and (ctrl 0) 

d B B r r 1 b B d I a t B r . A 1 s b s b e the " t o - b u f f e r- " c b r t j fin a n d 
ci B c: r i b b d :i. n t h b s b c t i o n o n t u f f e r- ma n a q e m b n t f o r a 
<;:;. i m i 1 a r c o ii) a n d . T " ci b J. e t b line" c o m m a r- 1 d s b r • v b b t h e 

1 o a :i. c: a I c o m id J. b m b !• ) t t a the " ]. i n e ••- i n s e r t ' ' c:: o m m a n c j . 



H erase to end o-f line 

■■} ■ h B ' ' H a c: l< ' ' c. o n ! ni a n d p b i^- f cj r m s a c: 1 ear" -•• t: o b n c J o f ]. i n e 

•f Li I" J c t i c:) n . T' ! • i b b u r b ri t c u r* s o r c: h a r- a c t e r a n ( j a ]. 1 

c: h a r a c:: 1: (•? r b t cj t h b r i q h t o f :i. t c « r'l t h e c:: i.i r r e n t 1 :i. n b a r" b 
b ]. a n !•:: f :!. 1 1 b i j All c: h a i'" a c t e r" b b 1 a i-. k b d a r" e ]. o b t ' i' ' I"! e 

' ' a o p B " c:: c:) f n i n a n ci d e b c r i b c? ci J. a t b i- c. a n b e u b ci t o r b c: c:> v b r" 1 1- • c: < f i ! 
a n a c c:: :i. ci b n t a i. i. v h a c:: i-:: e ci 1 i n b 



■[■ Y" I T i n ^i;> Brt / r e p ]. a c:; b t o g c:j 1 b 

1 n n (J r" In a 1 b i j b r" a t :i. o n . a r i y k e y t y }::« b ci i-J i c: h :l i" f c::* t 
B c: C!) c:i n :l. z e ci b v t !" i b b ci 1 1 n r a b a c:: c:) !"} t: r o I c o iV\ n) a n ci i^J i i. 1 r e p 1 a c;: b 
t h B c IX r r b r i t c u. r b o r c b a i'" a c:: t b r i^^j 1 1 h :i t b b 1 -f . T' b. i b i b t b b 
B t a n d a r ci r" e p 1 a c:: e in c:;. ci b . M c:- r in a 1 1 y i -f b r-« b w a n t b ci t o :i. n s e !' • 1: 
a c: h a i " a c;: t b r- a t t. j -i b c ix r r b n t c: ix r b o r i o c a t i. o n t b b i ri 2h r- 1 
c:: !~! a r' a c:: t b i'~ c: o m fri a n d o \.x I ci I"! a v b 1: o I::) b i s b \ j b ci h e -f • c j i'" e an v t x t 
c o u ]. d b c}' B n t. B r B ci „ 1 f :i. n b b r t :i. n g m a n y c:: h a r a c t b r s , t h i b i s 
c::umbBr b-cmtib . 

lAi b n a c:: i: ;i. v b . t b b i n ^i: b t s u. b m c:) ci b a u t o cn a t i. c: a ]. 1 y m a k b ^i;- 
rocHTi ■fc:)r any nBW characters or words and frBBS the user 
f r o Q) b a V :i. n q t a w c:< r r v a b C"' \ x t 1 1" i i b „ W t-] b n t b e b ci i t o r i s 
r a ]. ]. B d Li ij V i. a t b b IE D 1 T c o in ??< a n ci . t |-i b :i. n SBr t in o d b :i. s 
ci c •' a c:: t i v a t b ci . 1 b b i a i ri g t h e i n b b r t t < j g g 1 e c o in m a i"? ci w i. i 1 
a c:: t i v a t b :i, t a n ci 1 1" i b c u r b o r w i I 1 b 1 i. n k . i n ci :l c: a t :i. n g t |-i a t. t. hi e 
i. n s e r t in o ci c- :i. b o n . i b b u mq t l"i b c:: b m in a n ci a b- b b o n ci 1 1 en b w i 1 1 
ci B a c t. ;j. V a t B t b b i n b b r • t in o ci b an d r b c;:. t o !- e thB b ci i t c:) r- t o t b e 
r B p 1 a c B in o d e . IM c:) t b t h at n b i I b :i r- 1 t b b i n b b i'- t in o d b , ai l 
edit commands (excBpt BACKS . belB^) function as bBforB„ 



Fi 1 e Ed:i. tor 



BACKS 



del ete previ ous character 



in the replace 
and the new 
li the cursor 

does not move. 



The BACKS key behaves in two different ways, 
d e r.) e n d i n q u p o r"i w h e t h e r t h e e d i t o r i s i n t h e i n s e !- 1 m o d e o r 
i n t li e r e p lace m {3 ci e « (a| Ji e n i. s si^ l.i e d w t" j 3. 1 e 
fy I o de. t h e c ti r ^i:> o r is b a c k e d l» p one p o s i 1 1 o n 
c Li r e n t c: h a r" a c t e r i s r e p ]. a c e d w i t h a b lank 
i s a t t. h e t:) e g i n n i n g o f t h e I i n e , t h e c l< r s c:? r 
}.:« Li t t h e c:: l« r s o r c h a 1- a c t e r i s t i J. 1 r e p 1 a c: e d w i t h a b 1 a n k . 

If the editor is in the insert mode, the cursor backs 
u p Cf n e p o s :i. 1 1 o n , t !" 1 en c J e ]. e t e s t h e n e w c:: u r r Bnt c u r s o r 
c h a r a c: t. e r a n ci the f? c 1 o s e 5i> t h e ], 1 n e „ I f the c u r s o r i a t 
1 1" ! e b e g 1 n n i n q c:) f the 1 i n e , t h e c u r s o i'- r e m a i n <;;> i n 1 1"} e 
same position, the cursor character is deleted and the 
1 i ne c 1 (:::>sed . 



note:- 

A s a 1 1 o f t !" ! e a !:) o v e c:: o m r n a n ci b m o d 1 f y the f 3. 1 e i n b o m e 
{T\ a 1"! n e r , t h e f i 1 e i (n a r e ( j as h a v :i. n q i j e e n <:; a r i q e d . T l"j i b i ib t o 
e i • ! s- u j^" e that all c h a n q e s f ti a d e are e v e n t li a ]. ]. y saved o n i s k . T h e 
' ' Q 1.1 ;i. t " c o m \r\ a n d d e s c r* i b e d late r- a 1 ]. o w s o i"! e to a b o r t t li e e d i t 
s e s s i o r-} s a t h at ma jo r m i s t a h: e s n e e ci n o t b e <b a v e d a 



L X I V 



1 0 
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M 1.1 c h c: ■ f • 1 1" ! e u 1 1 ]. 3. t y o {■ t h e -f :i. 1 e e c j i t o r I i e i ri i. t hh- a b i ]. i t y 
t. (") t e fvi r) (;3 r- a r" i ]. y b a v e t e x t i n a v i. ^ih- :!. b 1 e b la t f e r" T" c j a i {:i t h e ii tin. r" , 
i. t i p o i b I e t o temp o r a r i I y s end t e t to the b u -f -f • e r a n c\ t o 
later retrieve :i. t This star age buffer can hold as many as 320 
1 :l n e s o f t e >'■. t s i. n i u ]. t a n e o u s 1 y „ T h i b b u f -f e r i s v i e w e d t [" i r * (3 u g i i a 
5 ]. :i. n e " p e e p I" t o 1 e ' ' v i b i I::) ]. e a ^:;> t h e ]. a s t w i n ( j c;) w o n t \i e s- r" e e n . 
U s i. !"i g t i • ! i i;;^ b u f f e r , 1 1 i b p e s 1 b 1 e t o d ix p J. :i. c a t e , en o v e .: a n cl 
e a ?;h. j. !}. v r e e r g a n i v- e t e x t i n a d d i t i e n t o t e iYi p o r a r" 1 1 y b a v i n g a 
1 :i. rj e t h a t i a b e i. i t. t o b e e c\ i t e d s o t j"i a t t h e o v :i q :l ri a J. f o y~ iVi c a n 
b e \/ :i. ewe c! e r" i^" e b t e c:! :i. -f i"! e c e b b a r y „ ' f h e -f o I J. o w i. r'? g b e e t i o n w i I I 
e p ]. a i. fi e x a c: 1 1 v h o w t ( :< a c: e f? • p J. i s h e a «::: h e f t b. e s e a c: 1 1 e i"i s . 



gtrl T to buf-fer command 

1 b e ' * t a - b i.» -f f e i " ' ' o m iTi a n d d e 1 e t e s> t j" ! e c: u. r' r e n t c: u r c:) r 
1 :i. n e I j u. t u n 1 1 k e t h e ' ' d e 1 e t e - :i. n e ' ' c o m in a n c j w li e r" e t b e J. :i. n e 
i 1 o B. t t b 1 e o m m a n d n) o v e the " p e e i-j o 1 e " d < j w ri a n d e jj i e s 
1 1"^ e ]. :!. n e t o 1: b e b o t 'l e in I i n e o f t f i e v i b i b 1 e u f t e r" n i n d cm r. 
T b i B .1. :i. n e :i. b t b e u i'" i^" e n t b u. i f e J. :i. n e T b e b u f -f e r :» b 
r o 1 ]. e d u p ( J n e a c b o c r u y r e n c e a i t b i b c o in in a r"^ d b a t h a t i t ii\ a y 
i J e u. B e d r e p e a t e d 1 v w :i. 1 1" • c::- \ \ t t b e 1 c::^ b o -f 1 o r e d (: e t » 

F Q V exB. ii) p I e , :}. -f t h e c: u. r b o r i b p o 1 1 3, o n e d r::? n n i. n t b 

line of the display shown :! n figure 1 and the "to buffer'' 

<::: o m r b a n d i b i b b u e d t w i c:: e . t h e f • i n a 1 r e u ;i. t w :i. j. be a h o w r"! 
1 n f- :i. g r' e 2 . 



r t r I F f !'•• o <T ! b u. f -f e \ ~ c. Q m / « i a n t j 

T he " f r o 1 tj b u f f e !'" ' * c:: o fT« fi i a r"i d d { j e e x a c: t ]. y t b e o p p o b 1 1 e 

of the "to buffer" command described above., It takes the 

c I. ' e n i: b li f f e r 1 i n e a n d i n e r" t b 1 1 !:::< e t w e e r? t. h e c i.i r r* e n t 
c u r' c:;' i'" 1 i ri e a n d t h e J. i n e a b o v e 1 1 T h e c \.x r b o r 1 i n e a n d 
a 1 J. 1 i n e lii: b e 1 o w i t a r" e fi i o v e d d o w n o r-^i e 1 i n e If t b e c u r o r 
w e Y" e p a c e d o n I i n e 1 -^1 a f 1 1"! e a b o v e b c r" e e !i <::) i ^lii- p 1 a x-^ a n i:;} t |-i e 
' ' -f 1'- o ii) ■•- b u -f f e r " c o mm a n d w e r e :i. in;- b u e ( J t w i c e t b e c J 3. b j::) ]. a y b b o w n 
in figure 3 would result.. 
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F:i. 1 es hVPlLE 



c Lir r en t 



( Fuju t i ne!; F-' I LE- I T 

T h e i o I I o w 1 n q r o u t j. n e w i ]. 1 
t !"• a !-i B t e !'•• a g:- p e c: :i. fled r a r' i g e of 
p- Q }::;. y c::. r r e e 11 s t c J a f i 3. e o n 
a D (3 S f D i'~ I T ! a 1 1 e d d i b I< . 



Note that DOS commands tend to be 
1 o no be c:: a l\ s e crf err o f" c ^ j e c k i n q a n ci 
p a a ( ! I e t e r pa r s i f? q „ 



}! FILE -•IT DOS ( ) 

GETAF^GS ';^lAiRGAF':G 44 GEIAF^G ':^WF;:GAFi:G 



c: ur rent 



Format :; 



F' I LF- I T 1 st 1 ast f i I en a me 

FILE-- IT 10, 20. MYFILE 
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Fi les HYFILE #Buf bj! 



— '•— ••— ••••• — •• - ~ ~~ ■■ '"" ~"* "*" *~ '~ "' " 

I ( R o u t i n e s F 1 L E. - 1 T » 

j I" h e f c:) ]. i o w :i n q r o u t :l n e w :i. 1 1 5 

} transfer a specified range of 1 

} FORTH screens to a file on 1 

I a DOS formatted disk- | 

j Mote that DOS c o inm an ds tend to be 

\ I on a because of error checking and 

i p a r a m e t e r pa r sing. 

1 (11 F o r- ! n a t s F- 1 L. IE - 1 T" 1 s t , }. a s t , f :i. J. e n a fi i e 

I FILE IT 10, 20, hVF I LE 

{ n FILE- IT DOS ^ > 



1 Format FILE IT 1st , I ast , f 1 1 ename 

} FILE -IT 10, 20, hVFILE 

4 
I 

r . „ „ „ ^. — -•- ••— *"" " 



j,,. copy to buffer command 

Thf. "rnnv- to -bu f ter" command takes the current cursor 
i-,.n'- and duplicates xt, sending the copv to the tau+ter„ 
Thp rnr-^^nr i - then moved down one :iine„ I his commands 
^^Mnrtion-:. identically to the " to-buf t er " command described 
above, except that the current cursor line is N(J I deleted 
from the text windoiAr. 



y copy -from tauf-rer 

The "rnpv-f rom-buf f er" command replaces the current 
rursor Mne with the current buffer line,, This command 
■f„nct.ons identicallv to the "f rom-fouf f er command 
d^--"ritaed above „ except that the buffer line is not 
,n<^^ertr.d into the text window, it merely replaces the 
current cursor line,, The "oops"' command described below 
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can be used to recover from accidental usage of 
command- 



t h :i. <^:> 



c t r" J. 



rol 1 buf fer 



T he " r {yl 1 u. f t e j- " c o m m a n d m o v e s t h e b u. t f e r " p e e p h o I e ' ' 
down one line and redisplays the? visible window., If the 
b u f f B r I'M e r e t h e fn i n i m u. r ri five 1 i n e s i n 1 & n q t hi t h b b c::< 1 1 o m 
f a u. Y" 1 1 n e s i n t h e w j. n d c:) w w o u ;L d fii o v e u p a 1 i n e a n ci t l-i e t o p 
1 1 n e w o u ]. d ' ' w r a p ' ' t o t h e b a 1 1 c« m a n d bee o ni e t li e c u r • r e n t 
u f f e r- ]. i n e » I f t !" i e i'- e w e i'" e rn c:) r* e t h a ri f i v e b« u f f e y 

1 i n e s w c:« u 1 ci m o v e li f.:? a J. i i" « e t. |-i e 
p i A B h e ci u p b e h 3. n d the p e e p h o 1 e ^ 



the bottom four 
1 i ne wcjuI ci be 



b u f f e r 1 i f i e c o m i n q u p f r oai b e !L o w the p e e p h o J. e 



.!. I n e s 
t op most 
and a new 
wou 1 d 



I..' e 



d i. E- p 1 a y e d a n d 
e e five 1 i n e 



i'f ! a c j e c:: u i'" i" e ri t „ F- o r e >: a m p 1 e i f 1 1"! e b u f f e r 
1 o n Q a n d c: o n t. a i n e? d n 



Cur r en t s 



( Who'"- ) 

( What? ) 

( Ulherr? ) 

( i/ihere'? ) 

( Whv'^- ) 



4: 



t- 1 q -J 



( 



t e " I"' o I 1 b ix f f e r* " c o m fi i a n c:l q i v e s 



Current r. 



What? 
When? 

W !'■ ! BY" b'? 

Why? 
Who? 



f 3. Q 6 



c t r 1 



b a c I-- r o ]. 1 • - b u f f e c o m m a i "! d 



T h e " b a c h: -■ r o ]. 1 -• b u f f e r " d c j e s exactly t |-i e o p j::) o site c j f 
the " r o i. 1 - b u f f e i'" " c { :« m f n a n d ( j e <=> c r i b e d a b o v e F o r e a m p I e . 
i f c^ i V e n t li e b u f f e r i n f i g ix r e 6 a I::) c:) v e t h e " b a c I •: - r o 1 ]? ' 
c o n) {T\ a n d w c:) u 1 d c:i i v e the b u f f e y" b h 0 w r'i i ri figure 5 « 
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r 



c: t r I 



C 



c I B a r b u f t e r" ]. i n e c o m m a r i d 



T he " c 1 e a r- - b 1.1 -f ■ -f e r' 1 i. n e * ' c: omma n d c: 1 e a r s t h e c 1.1 r" )•" e n t 
b lA f -f e r- 1 i r i e a ii cl then " b a c k - - 1'- c j 1 1 b ' ' t h e b u -f f e r s cj t hat 
successive clears can be used to erase the entire bLtfferL 



NOTE- 5 



A r I V a f t h e a b r j v e c: o m fn a n d s m h i. c: h c h a i" « q e t ii e t e x t i n d o w 

w i 1 ]. m a !'•• t n e file as 1.1 p d a t e d „ T h o b e c cj ni f 1 f a n d s w h i c: h a J. t e r o n J y 

1 1"! e I J IX f f e r • i n ♦li o w ( s u c: h as the " r o 1 1 ' ' c:: o u) m a n d ) w :i. ]. 1 n ot c h a g e 
t. h e s t a t ix s oi t ii e c u r r e n t s c r- e e n 



r 
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Scr dI 1 i no 



c t: Y" 1 X 



p r e V i o u s- I i n e c n m m a n c j 



■ I" h e • ' I J r e v i o u s - line" command scr o .1 i s the t e m t w i n cj o w 
\ J p a I i n e i •(: i-, i n t li e f j. 1 e . 



Ctrl E 



n e >t t I i n e c o m m a n d 



The "next line" command moves the text window down a 

]. i n B w :i. t h i n 1 1") e f i 1 e „ 



P 



j:: « r e v i o u s | j a g e c: o m m a n d 



T lie " p r- e v j. o u. s page" c: o m mi a n d b c r c: « 1 1 s t ri e t e >^ t w i n d n \^.\ 
up 1 6 J. i DBS w :i. t h i n t !"! e f i 1 e „ 



c t r ;L !\| 



n e x t pa q e c: c:? m m a n d 



The "next-page" command moves the text window down 16 
1 i !"t eii;:- w i t h i n t hi e -f i. ]. e « 



c t !'•• 1 S 



save command 



The "save" command saves any chanqeiiE 
c:: Li r r e n t file a n d e x i t <;:> 1 1- 1 e e d :i. t jti o ( j e « 



made to the 



c t r I Q 



qui t command 



The "quit" command aborts the edit session 
"forgetting" any changes made to the text file in memory., 
T he " q u :i. t " c o m m a n d i s u s i.i a 1 1 y u Bed w h e n e :i. t h e r t h e w r- o n g 
file has !::) e e n c:: a 1 ]. e d u p , or i. f it b e c o m e s c j e s i a b 1 e t c j 
start over and re-edit » 



L. X 1 M 
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Spec i.al CofXimandB 



■}■ h B r" e are -f a u r s p e c: i a 1 c c j m m a n d s i. n t h i s Bdit o i'-^ w f 1 i c li a 1 ]. o w 
c! r • e a t e r • f ]. e i b :i. I i t y i i- f p o g r ■ a fTi m i n q o r • f the v a 1 F G R T H y s t e n j j; 



{•;• S C A F- E ^ P ^ciB. I k e y c:: o i "n m a I'l <:J 

T" hE! " p e r I a ]. - k e y " c: o f tj ii) a n d i n s t r u c t s t li e v :j. c j e a e ci :l t. o r 
t D :i. g n r- e a d y c o ir\ m a n d f • »..» n c: t i o n (:::• f t !i e ! i e x t h: e y type d a ri ci 
•force a character to the screen,. F-or example, normally 
N h en ' ' c t r I •> " i t v p e ci t h e c i.i r s o r i <;h. ; y ! o v e d r- 1 q h t « B v 
typing "ESCAPE ctrl >" the curBor is not moved 
a t h e !'■■ H t h e r" ;!. q h t a v r o w :i. ih> d i b p I a y e d « 



1 r I J •=> p i 1" 1 1 o f Ti n } a !"i d 

( J f • t e ri 1 1 f! i e s- . -f • o v~ t c ^ r - m a 1 1 1 n g e a o n s ^ it i. b n e c e s- b a r- y 
t o ' ' B o I it" a 1 :!. n e i i-i t o t w ( j 1 i n e s J h e p 1 :» t ]. i n e c o m m a n c! 
t a I-:: e i;:^ a ]. J. c h a i'- a c: t e r b t o 1 1" i e 1 e 1 1 o i t h e c u r b o r- a n d c r e a t e b 
the first line. and with the remaining characters of the 
o r i a i n a ]. ]. i n e a b e c o n ci 1 :i. n e i b c r • e a t e ci . (3 r a p h i c:: a 1 ] y . 
this locjks liken 

bef ore ! The qu.i c k(I)br cjwn f om i cmfped I 



after;; I The quick^ { 

{ i J Y" o w n f o y. ;j li iT\ p e ci « I 



c t r 1 



B o 1 1 c e ( CA n p 1 i t ) c: o m m a y< d 



'! hi e ' ' B p 1 :i. c e - c: c: < a) m a n ci " p e r -f c:« r co s j li s t t. !" i c 
(J p era t. i o n o f c I' l e ' ' b p 1 i t c o (in f < i a n d " a b ( j v e « 



c^pposi te 



c: 1 1'- ;i. Y repeat c:: o n » m a n d 

T he "repeat c o ii i it ? a n ci " repeat s t h e f! e m t c o m m a n ci o r 

r h a r- a c t e r- t y p e ci li n 1 1 i. a p r e ci c? f i n e d b t o j:« c:: o n ci i 1 3. o n c:> c c li ■ s , 

o r Li n 1 1 ], a c c:) n s c:) J. e k e y i s p r' e s s e „ F hi i s i b u b e d (Tj o b t ]. y 

w i. t h 1 1" i e p r e v i o u s / n c:^ ;^ t )::« age c:: c j rr^ » 1 1 a n ci f cj r- c cj n l: :i. n li o li b 



scr C3l 1 i nc:} 
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c: i;: ]. C] D o p B c: o m jti and 

0 c r a\ s s i o n a 1 1 y a 1 :i. n i s i n s e r t e ci o r d b 1 e t e c! 

accidentally, hal-f a line cleared by mistake, or some 

c) t h e r n\ a .i o r e d i t :i. n g b 1 li n d e r i s m a d e « A s t h e n a tvi e :!. m r) 3. i e ^-.i- « 

t h e " o Q rj s " c: a m m a n cJ c e i'" r e c t s fin est c j f these f ri a j d e d i t :i. n q 
errors.. The "oops" command can be used to recover from 
t h e f o 1 1 o w i n q c cj m m a n d s s 



1 ) 

2) 

4 ) 



S ) 
6) 



7 ) 



i n s e r t 1 i n e c. o en f b a n 

c j e 1 e t e ]. i n e c: c j m a n d 

hac k command 

t (3 b u t f e r c o n) m a n c J 

f r o Ml b Li f f e r c o fi} m a n d 

copy from buffer commar 

sp 1 it line command 

sp 1 i ce command 



ri 



(shift INS) 
(shift DEL) 



( c t r ]. 
(Ctrl 
(ctr 1 
< c: t r 1 
(ctr 1 
( c t r 1 



l-l ) 
T ) 

F) 
U ) 
J ) 
G) 
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Sub commands 



T I" ! e s L\ t::« c c« m m a d i. s o ii t e r o {.i b y t: y p i n q c: t r 1. V T h e d i s p I a y 
will be cleared and a prompt ( " s ") will be :i. ssued„ The 
followinq commands may be typed in response.. 



< return 



M a k e t h e c; u. r r- e n t .1 i. r i e t h e s t a r t o f • t h 
■f 3. 1 e « ( :i. . e f, !"i a c k off the b e q j. n n i n q ) 



EN < return 



Make the current line the end of the 
f 1 1 e « ( :i. e „ n ha c: k c j f f t h e e n ci ) 



FL < return 



F o sit :i. o r"f the c u r ^iii- r o n 1 1*-! e f :i. r t. ]. i n e 
of the f i 1 e.. 



LL ••• return 



i-' o s i t i o n 1: 1" i e c u r s o r o n t h e ]. a t ]. i n e 
of the f i 1 e. 



RT" < return 



R e iiu- e t t h e T A B s t o p ^iii^ t o t !i e i r o r :i. q i n a ]. 
sett i nq s„ 



r et 1.1 r n 



Enter the pattern search sub mod e« The user 
w i J. ]. b e p r" o m p t e d t o e n t e t h e sea r" c I" i s t i n q 
■}■■ I") e c t r I }.... c o m ifi a n c:l w i ]. 1 c o n t i n u e t h e e a r c: 1"^ « 



1 F f i 1 ename 



return > 

;[ n s e r t t h e s p e c: i -f i e d -f • i 1 e :i. n t o t h e -f • i. ]. e 
J u s t after t l"i e c ur r en t c: ur sor 1 i. n e .. T h i s 
1 s u e f u 1 f o r p la ]. J. i r ^ q s u b v o i.a t i n e s r o m 
a n o t h Br f i 1 e T" h i ^> can be s t o p p e d at a n y 

t i IT? e I J y |::) r e s s i. n q a c o n s o 1 e k e y 



LXIV — 19 



F'i 1 e E- d 1 1 or 



d 1 L 9 r.. Q fj}. iiiii^ni^ ^5 ^! ^i) v 



BelD<^ IS a quick reference list of all the commands «-;hich 
t h e V :i. d e o e c:} ;i. t o r r- e c o g n ]. z e s « 



Entering the Edit Mnden (executed outside of the edit mode) 

EDir irvf ! ! '^?C, out -file) ( - ) 

I::. ! ! 1 :! !• t he e ci 3. t m ( J d e a n d edit " i n -f • :i. ], e " „ 1 -f 

" c^i Li t f :i. 1 e " i s s p e c i f :i. e d , s e n d e d :l t . e d t e x t 

to " o u 1 1 :i. }. e " n o t hi e r w i s- e s e fk j it " i n -f- :i. ]. e " „ 

I....L , ......... , 

l"v e •-• e d j. 1;; the :i. a s t -f • i. 1 e e cJ i t e ci „ 



Wf-IERE 



#BIJFS 



f 

■. 

E: n t e r 1 1" i e e d 3. t m ode a n d p o s i 1 1 o !"i t h e 
cursor over the word that caused a 
c: o Ci) p ;i. 1 a t :i. o n Br r a r 

( #1 1 nes 

S e t s t hi e ]. e n g t hi ( :i. n I i n e s ) o -f • t h e <b t o r a a e 
b u. f f e I'" T h e d eta u 1 1 i s five . 



.INFO ^ ^ 

I) i s p I a y f if { e iy t o r y a 1 1 o c: a t i o n o f t hi e c:: u r" r e n t t :i. .1. e 

s o t hi at it may be save d u s i n g t hi e W F-^ I T E! 

c: o fin I a n { j „ ( u s e ci i n c. a e o f a s a v e e r- r- o r ) 



Cursor Movements (issued within the edit mode) 

^- ■ ' ■ i""! ^■■■^ V e c u r- o r" li |:;) o n e J. i. n e , s c r c j ], ]. i n q t h e 

f 1 1 e ci o lAi n o n e 1 i n e if n e c e s s a r v . 

•■- ^~ '^'"^ v e c u r- ^ o r ( j o w n o n e 1 i n e , s c r o 1 1 :!. n c;) t hi e 

f J. !!. e 1.1 p o n e ]. :i. n e if n e c e s s a r v « 
1^1 o V e c u r s o r left a n e character, w r" a p p i n g 
t o t hi e r i g hi t e ci g e i f hi o v e d c- f f t h e 1 e f t „ 

^•""^''■'•^ Move cursor right one character, wrapping 

to the left edge if mcjved off the right,. 

R E iJ F< N p o s 1 1 1 o n t |-i e c u t- <=> or- at the h) e g i n n i n g " 

o f t: h e }■■ ! e x t 1 i n e . i n s e r t 1 1 n e i f at t l"i e 
end of the f i 1 e n 

^ ^ A d V a n c e 1: o n e x t t a hi u ]. a r- c ( j 1 u m n 



Fi 1 e Ec:! i tor 



c t. !•■■ 1 



TAB 



C • 1 © a r t a b b t o p a t. c u r r e n t. c u r s o r 1 c:« c. a 1 1 o n . 



sh:i.-ft TAB 



S e^? t t a b s t CD p a t (i i..'. r r e n i: c r *;=• o i"" I o c a t i o n „ 



Edi ti ng Commandss 



c:: t !- :i. 



ct. rl DE'L 



shift IMS 



(issued within the edit mode) 

Insert o n e b I a n k a t c u r i!=. <:;« r 1. c a t i o n 
]. c:) s i n q t hi e J. a s t l'i a r a c t r o n t i "i b 1 i r 'l e 
D B ]. e t B r h a r" a c t e r u n d e r c. u r sor r, c: J. o sing 
t l"i B ]. i n B 

;[ n s B r t ]. a n }•:; i i. n e a I::) v b b u r r b n t ]. i n b 



shift DEL 



c t r 1. 



Del Bt B c: ur r Bn t c i..ir sor 1 i n b . c I os i n q t h b 

f i 1 B 

1 n s B r t l:« 1 a n )•:: I i n b b b I o w c: u r r* b ri t ]. i n b „ 



c. r I I 



BACKS 



Ctrl H 



T o q Q I B :i. n b b r- 1 - m a d b / b |::« 1 a c:: b - rfi o d b . 
(SBB -f-Lill dBscription of ctrl-I). 
D B :i. B t B ]. a <B t c: h a r a c: t b r- t y p b d i i- c:) n 
fHi- a n J B ]. :!. n b as t h b c: u. r s a r „ 
E; r- a s b t o b n d o f ]. i. n b ( H a c ) . 



the 



t r 1 



E: n t B r t h B s 1. 1 b c n iXi m a n d (T! b d e = ( s b b b b J. d w ) 



Buffer Management ;i 

c: t r 1 T: 
c 1 1' - 1 i- • 
Ctrl K 
r t r I i.J 
c t r 1 



c t r I 



c t r ]. 



B 



(issued within the edit mode) 

D B 1 B t B c u r r e n t c u. r s o r 1 i n b s. b n :!. n q 

:}. t T" 0 t {-i B B d i. t b Li -f f B r f o r later li s b . 

! a k B t h B c:: li i" i" e n t b u f f b r" :i. i r i b a n d i n s b r t 

i t a b o V B t r 1 b c: u. r r e n t c u r s o r 1 :l. n b „ 

K a p V c: u r r b n t c r ' s c:« r I i n e <b b n ci i n q 

:i. t t o t B B d i t b u f f b r f o r- late r u s e « 

1" a h: B t li B c: li r r" c- n t Ij li f f b 1 i. n e an ci c: o p y 

i t t o t ^1 B c LI r r B n t c u r s b i- J. i i" i b „ U n k o p y 

R >:::. ]. 1 t h b b u f f b r- fTt a k i n q t h b n b t b li f f e r 

1 i nB cur r Bnt 

R o 1 1 1: }" } B b Li f f Br Bar }:: w a r" c:! i:;;- m a h: i n q 1: li e 

P t- B V i o u s b u f f B r I i r i e i"! t h b c r b b n c li r- r e r f 1: 

C: 1 B a r- t h B c li r r e n t b f f b 1 :i. n e an d 

p B !'•• f o r f n s a c:: t r 1 - B w 



hJ r:i t B I! t h B c I. .1 r r • b n t b u f f b r" 1 1 n b i s ]. a t 1 :i. n b v :i. s i !::) 1 b i. r ) 1 1" ! b 
bLLff c?r wi ncjow„ 
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F"i 1 e Ecli tor 



0 p- w~ 'j "1 -i r-k n / C \ / -j r*i /T t» 

1 J> i_ r L J .1 X J. f I l.J / O Cl V J. f 5 I J 1/ 




(isBued within the edit 


mode) 


(•• t r" 1 A 


Q r~ F- f-i 1 1 
Ui i +* K 'i r~i 

V^v .L 1 J .1. ! 1 


the edit window 
the f :i. 1 e „ 


up a 1 i ne 




c: t r I !£ 


Scr ol 1 
w 1 1 !-i i n 


«... 1 1 e e Cj 1 1.. w 3. r ! G u w 
t. hi e •{•• i 1 e „ 


down a .1 i ne 


Vi 


c: t r I P 


i-'i 1 t- }"i i r -f 


t h e e d i t i-^ i i n d w 
t h e f :i. I e 


up 16 line<i 




c t r J. !\} 


Scrol i. 

iai i t' i n 

V . .1. ! 1 .1. 1 1 


t h e e c j i t w i n d o w 
the f i I e „ 


dowi i .1 6 1 i r 


! e s. 


c: t v~ I S 


B 3. V e h 


le changes made ( 


:o the cL.irre 


>n t 






d ex i t the? edi t 


mode „ 




c: t r 1 Q 


Q IX 1 1 1 1- 
h a n g e 


e edit BesB3. on f 
• made to the ci.ir 


•orgettinq a 
■rent f i 1 e„ 


J. J. 


Sped al Keyss 




(issued within the edit 


mode) 


ESC 


I) o n cj ■(: 


i nt er pr et the nc 


? >( "t ! e V' t V p e 


d 




a a V 


of the commands 


above.: Sen 


d 




1 1 cj :i. r" e 


c t ]. y 't o t h e s c. v c 


■en i n stead « 




c t r 1 J 


Fw-. 1 1 i- t- 

>«>■ f... .1. ,1, 

... .j.. .j.. |... 


he current 1 i ne 
poi nt where the 


i nt o two .1. 1 
cursor is« 


t"\ 

r 1 C? 


r t r 1 B 


Sp 1 i ce 


< u 1" I s p 1 i t ) 1 1"} e c: u. r r e n t 1 i n e 


^:\nd 




t. !"'! e ]. i n 


e above it« 






c t r 1 0 


Cor !"■ ec: t. 


s a n y m a . i o r e c j i t 


ing blunder 


s« Gop 


c t. r :i. L.. 


Con 1 3. nu 


e searching tor 


the pattern 


enter 




:i. r"i t h« e 


B u b c:: o m /n a n d fn o cj b „ 


Loo!:: 





c: t r 1 Y 



B. n t e r t li e r e p e a t m < j d e . T" h e n e t comma n d 
o r" c h a I'- a c:; t er t y p e d w i I 1 b e r e »:: « e a t e d u. n t i J. 
a s t Cj p c: o n c j i t i o i" • ;j. s n i e t c;) r u n 1 1. ]. a c: o r i f o J. e 

I:: e y i s p e s s e d u IJ s e { j f 1 1 o s 1 1 v w i t h c t r 1 !•••' , 

< y" I M a n c j t h e c: u r s- c:- r c c:) m /n a r i c j s . 



Subcommandss 



(entered in the subcommand mode) 



1" li e u b c: o in m a r-i d i b e n t e r e c j b y t y p :i. n q c: t r*' 1 -•• V . "}" h e d :i. s p 1 a y 
w :i. 1 1 b e c: 1 e a r e ci a n c j a p r o n\ p t ( " " ) w i. 1 J. be i b b u e c j , T li e 
•f { J 1 1 o wing c:: o iii a n cj b /ti a y b e 1: y p e d :i. n r" e b p o n s e ^ 



S T < r e 1 1.1 r n > II a k e t li e c:: i .t r e n t ]. :j. n e (: h e s t a r t o f t h e 

i i 1 e ( 1 ... e « h ac: h: c^t f 1 1' i e beg i n n i n q ) 



Fi I e Ed :i. tor 



r 



EM < return 



Make the current line the end oi the 
•file ( 1 u e .r , h a c l< o f f t h e end) 



r 



F-L < ret urn 



P o 5H- i t i Cf n t. h e c u r' s o r o n t h b f i. r s t ]. i r"j e 
of the f i 1 e„ 



LL. < return 



Posi t i on the cursor on the I ast 1 i ne 
D-f the -file- 



RT < ret urn 



P8 < ret urn 



R e B e t 1 1*-} e T A B s- 1 o p b t o t h e i r o r i g i n a I 
settings,. 

1::! n t e r t l"i e p a 1 1 e r ri b e a r c h s u b m {3 d e » T hi e u. s e^' i- ■ 
w i 1 ]. b e pr om p t e d t o e n t e i-" t h e s e a y~ c h s t r i n g . 
J h e c 1 1*" I •-■ L r Oil) ma n d w i 1 1 c: o n t i n u e t h e e a r- c h . 



Ih f i 1 ename 



••^ r e t L\ r f! 

]; n iis e r t t h e s 1:3 e c i -f 3. ( j :i. 1 e i w t c:« t h e f 1 J. e 
, i 1.1 s t a f t e r' t. hi e c u r r e n t c u r* s o r' 1 i r'l e « T h i s 
i <s u e f u. I f o }::) u 1 1 i n q s u b r (3 u t :i. n e s f i'" o m 
a !"t o t h e r f i ]. e I" h i s c a n b est o p p at a n y 
t :i. f7 1 e I J y p r e s e> 1 n g a c: o n s o ]. e key 
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I 



r 



r 



valDOS I 
Supplied Source Listing 
LXV. 



r 



Screen:; 10 

0 (. V a ]. D 0 S ;: c| i . .i a n s an d c o n s t a ii t s ) 

1 ^' ( QIJAN ) ( 150 LOAD ) 

2 " • C ARRAY ) ( 160 LOAD ) 

3 VOCABULARY DOS IMMEDIATE 

4 DOS DEE IN HI QMS 

in:' 

6 L.ABEL EWFLD 11 ALLOT 

7 QIJAi^! FNCNT 0 TO FNCMT 

8 QUAN FiMSEF-" 0 TO FN SEP 

9 QUAN FNiBWGH 0 TO F-NSWCH 

10 QUAN UNIT 0 TO l.JNIT 

11 QUAN DEI... U NT 0 TO DEI.JJNT 

12 QUAN ENSEC 0 TO FNSEC 

13 QUAN T^UILD 0 TO 7WILD 

14 QUAN GENTRIES 0 TO #ENTRIES 
1'5 QUAN #EREE 0 TO #EREE • > 



Screen ?, 1 3 

0 ( V a 1 D (3 S "n a i'" r a y s 
1 

2 4 CONSTANT MAX EL 

3 128 CONSTANT 128 
4 

5 ( a ci cl r e s <Hi. e s o f f :i. ]. e b li f f e r <s 

6 MAXFL l-i- ARRAY FLBUE 

7 0 FEB UP MAXFL 1 -i- 2t ERASE 
8 

9 ( map of bu-fters in i\sb ) 

10 MAXFL 2.t 2 H" ARRAY OPNSTT 

11 0 OPNSTT MAXFL 4 ^. 2 ERASE 
12 

13 ( the filenanie "D;;;:*" ) 

14 LABEL AL..LNMS 

15 04 C, 68 C, 0 C,, 58 C„ 42 C, 



Be r ee 
( 

1' 

.••1 
.1... 

*..!* 

/I 

(;::• 
•_J 

6 
7 
S 
9 

1 0 

1 1 
1 2 
1 Z 
1 4 
15 



1 1 

val DOS :i 



8c reer 



1 4 



q Li a n s a n cl c a n b t a n t <b ) 



QUAN D^iBLERR 

QUAN DIRBLf< 

QUAN ESMBLK 

QUAN ••y^FSNUP 

QUAN ^?MBAME 

QUAN DIRE RE 

(^lUAN F'L# 

QUAN TADR 

QUAN #UNTRN 

QUAN Hl^ 

QUAN IM2'I> 

QUAN DIRLOC 

QUAN NR1<:SPC 

QUAN DOSTMP 



0 TO DSL ERR 
0 TO DIRBLK 
0 TO FSMBLK 
0 TO 2FSMUP 



0 


( ^ 


v-al DOS 5 (r 


^r r or c 


1 
.1*.. 




CONSTANT 


BADNME 






CONSTANT 


BADUNT 


4 


•..!' 


CONSTANT 


BADFSM 


•....1 


/j. 


CONSTANT 


FLEX ST 




5 


CONHTTANT 


D I REUL. 


"7 




CONSTANT 


DSKFUL 


B 


7 


CONSTANT 


AMBNME 


9 


B 


CONS r ANT 


ELDNE 


1 0 




CONSTANT 


■•|-|vj|:::QpjM 


1 1 


1 0 


CONST AN T 


EOF ERR 


1 .>!.. 


1 1 


CONS l' AN r 


EL NO FN 


1 z 


12 


CONSTANT 


BADF"L..# 


1 4 


1 


CONSTANT 


F!...UPFrr 


15 


1 4 


CONSTANT' 


NRG ARC 



:>creen;: 12 

0 ( V a ]. D 0 B^ : q u. a i-i s a n cl c. o n 
1 

2 VECrr RDNOF'N 

3 ASSIGN NO OF TO RDMOPN 
/|. 

5 9ECT RDMCLS 

6 ASSIGN NOGF-' TO RDMCLS 

8 VECT f;:dnspc 

9 ASSIGN NOOP TO RDMSPC 

10 

1 1 VECT' f;:dmendf 

12 ASSIGN NOOP TO RDME NDF 

1 :•!; 

14 VECT RDMWND 

15 ASSIGN NOOP TO RDMUND 



i: a n t: 



Screen;: 15 

0 ( V a 1 D 0 S s e r" i^" o r c. o ci e b 

1 15 CONSTANT FLOPN 

2 16 CONSTANT FLTBG 

4 HERE 1 AND AI..,.LOT ( even add 

5 144 MAXFL t 192 +• ALLOT 

6 F-IERE TO U PES PC 128 ALLOT 

7 i: TOP CM 741 ^ 1 
B 

9 ij ESMAP ( - 

10 NRKSPC 128 ; 
1 1 

12 : DIRTBL ESMAP 64 •■" u ( 
1 

14 BUFBOT ( - 

15 DIRTBL 144 MAXFL :; 



Screen;: 16 

0 ( V a 1 D (J S e v r o r y e u. t i n e ) 
1 

2 DGBEF:!-: ( # ) 

3 TO DSl<:Er<F^ R> DROP 0 - 
4 

5 s ?DOSEF<F< ( f # — ) 

6 SWAP 0=^ 

7 -j: F 

3 R> DROP DOS ERR 

9 ENDIP 

10 DROP 
1 1 

12 n 2DSKERR ( f ) 

13 0- IP R> DROP 

14 D8KERR DO BE PR END IP ; 

:i. 5 ' - •> 



Screen:; 19 

( V a 1 D ("] S n f :i. ]. e n a r e c: (j r i v e r ^iii- :i. o n 

1 

2 :: PNG ON ( $ - f 

3 0 TO DSi<:ERR 

4 0 0 U N T G E: 1" W G N G IS T U I\| 3: l" ? D S \< E. R R 

5 S TO FNGNT 46 TO FNSEP 

6 PNPLD 11 BLANKS PNFLD 

7 BEGIN 

B 3 PIGK DUP FNSEP 

9 IF 

10 2DR0P PNPLD 7 + 

1 1 DUP l-i" 3 BLANKS 

12 3 TO PNG NT 0 TO FHSEP 

13 ELSE 

14 DUP 42 ( ">K" ) 
1 5 



be re en ;; 



i-;^ V 



1 



4 

5 

6 
...J. 
.•• 

8 
9 

1 0 
1 1 

12 

1 

1 4 



1 7 

a 1 D 0 S ;; f • i. I e n a m e c:: o n v e i'" s i o n ) 



GETSUGI-! ( a c - 

0 TO FNSmn DUP 2 > 
IP 2DUP 2 G.a) 47 ( 

:i: !•"■ 

2 2 DUP -\- 1 Go) 

TO PNSUGH 
END I P 
END IF- ^ 



GETUNIT ( a c a c 

DPLUNT TO UNIT DUP 2 > 
IP OVER iii) 14916 ( "D:: " ) 
I F 

SWAP 2-1- SWAP 



a c i 



Screen :: 



:0 



0 ( V a 1 D L'l S z f i 1 e n a fo e c:: (:;:< n v e r s i o n 
1 

2 I F 

3 OVER PNPLD 1 1 -i-- OVER ■- 

4 63 ( "2") PILL DROP 
"3 EL...SE 

DUP 4S ( "0") < OVER 
90 ( "Z") > OR OVER 
57 < "9") > 3 PIGK 

65 ( "A") < AND OR 



"7 



8 



q) 



10 
1 1 

12 
1 5 
14 
15 



OVER 63 ( 



1 1 '"^ n •■. 



AND 



IP 2D POP 2 DROP 

BADNME DOSERR 
END IF 
OVER G! 
END IF 



Screen:; 18 
0 ( valDOSi: 



Sc re en ;; 



1 

.u,. 

4 

i::r 



6 



B 
9 

1 0 

1 1 
1 2 
1 Z 
1 4 
15 



•f 1 1 e n a i « i e c c « n v e i-" " s i a n ) 



ELSE DUP 3 > 
IP OVER G::D 68 ( "D") 
3 PIGK 2 I- G;:D 58 - AND 
IP OVER 14- C:;i) 49 ( "1") 
DUP 0< NOT OVER 3 > NOT AND 
I !••• 

TO UNIT 3 SWAP 3 SWAP 

ELSE 

2D POP DROP BADUNT DOSERR 
END I P 
END I P 
END I P 
END I P 

END IF 1 r, --•> 
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0 ( valDOS:; 



1 



4 



•••V 

/ 



FJ 



10 

1 1 

12 
1 5 
14 
15 



•f i I e n a m e c e n v e r tEi :i. o n 
F NGNT 1-" DUP TO FNGNT 0 
IP DROP 2DR0P 

BADNNE DOSERR 
END IF 
END IF 

1-I-. ROT 1-H ROT 1-- ROT 
OVER 0-= 
UNT I L 

2 DROP DROP PNPLD Giii) 63 >=:^ 
BADNME DOS ERR 0 TO '^^WILD 

1 1 0 

DO 



PNFLD I 
IP 1 TO 
LOOP 1 :; 



-I- Giii) 6:3 
':-^WILD END IP 



Sc. r een t; 



Sc: reen s 



',\ v:: 



0 •■ 


: valDGS- a 3 


i as 


1 .•• • ■ 1 • \ 

cJe f 1 n :i. 1 1 ons ) 


Ji!' \ 


V .1. 1..' U •::> S P LI r.. i i t.-.' v.? [..) c::^ L.. t;.v 


1 








•1 

J. 




X.. ■ 


3P I Cl< 




n 




cr ivi l::' i ci 




6 \" .1. (... K. i; 






•••I* 


: I •...•1 \\.J\ 








•*+ 


.1. 1 


5 :; 


F'LBUF":;D 




K n - a ) 


es! 
»J 


i::' <::• m a r~' P Q m p) i i.- " i/i p;* / 1 .-. | 




FLBUF- ;; 






/I. 


i::' K 1 r\ t it* 


/ 






7 


0 jn ':>p<-\M\ IP 


C.\' 1 


F LINFG 










9 


F L.# FLBIJI-Q 


It 

If 




9 




1 0 






1 >i.' a 


F^MI IP 


1 1 i 


720 'i< 720 t 


If 

!i 




1 1 


1 TO 7FBFIUP 


1 "? > 


! 256 >{< 256 ^ 


II 
fj 




12 




13 : 


: 128 128 


a 

H 




13 : 


DBKFLS 


14 : 

1 5 ; 


] 135 135 

: 2% 2 t 


ir 




14 
15 


dif:fls FSMFLS? ^ 



Screen « 2-.::' 

0 ( V a 1 D 0 c> ;; q e t o-: p la t ( j i r ' e c: t o r y ) 

1 

2 DIR6ET ( sector ) 

gffset a i]vef< dr0 block 

4 TO DIRLOC OFFSET 1 TO DIRBL..K ; 

A DIRE LB ( > 

7 FLUSH 0 Til DIRBLK 

C) 

9 r. DIRUP < ~" > 

10 UP BATE 
1 1 

12 ENTRY ( unit # ) 

13 1-" 8 /MOD 360 -i- 

14 ROT 720^ DIRGET 

15 16 DIRLOC -i- - > 



Screen:: 26 
0 ( valDQB: 
1 



check d :i. rectory 



7 
8 

a 

1 0 
1 1 

12 

1 

1 4- 
15 



CFIKDIR ( 
0 TO #ENTRIES 0 TO #FREE 
65 TO DIRE RE 0 368 360 
DO 

I UNIT 720* "i- DIRGET 
DIRLOC 128 4- DIRLOC 
DO 

1-i- 1 TO "^SAME 
I C;iD 195 AND 66 ^^^^ 
I F 1 1 0 
DO 

J I 4 5 C^ FNF-LI) I 

c;;d dup 63 ( "2") 



■ # 



4 



g e t. f I'" e e s p a c e a p 

( unit 



be reen " ^.h- 
0 ( valDOS" 
;l. 

2 ESMGET 

3 720% 359 "i" 
DUP FSMBLK < > 
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6 1 AT FLGNT +• ! DUP )KEGFIG 

7 DiJP 155 

8 ;[ F 

9 DRGP BL 

10 FLGNT 0 TG FLCNT 39 ^ 

1 1 I F" 

12 DRGP F LATEST PEA GFA , 1 

13 ^;^DSI<ERR 

14 END IF 

15 END IF 1 ; 
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0 ( valDGSs FLGAD 
1 

2 ' WGRD ] '■' FWORD ''' WGRD 2-i- 

3 WGRD 2-t- ' BLF:: iii) >R 

4 FLGNT >R 0 ELK f 

5 DUP FLNME 16 CMGVE 

6 (GPEN) 7SYSERR 

7 TO FLFL# DRGP 

F- 1... F L # ( S K I F' ) G R I N T E R P R E. T 

9 F L F' L # ( C L G S E ) D I R F L S 

10 R> TO FLGNT R> BLF:: ' 

11 WORD R> OVER 

12 2 +- ! R> SiAJAP ! 

13 R> TO FLFL# ; 
1 ^-l- 

15 



Screen i; 7 '7 

0 ( valDGSii FLGAD support . ) 
1 

2 2 FWGF-<D DOS ( c - ) 

3 F-!ERE 34 BLANF-:S F-IERE J. DUP 

4 BEGIN 

5 DRGP NXTGF-iR DUP 

6 DSFa:;:RR egferr - or ?syserr 

7 0- IF 0 END IF 
3 DUP 4 PICF^: <> 
9 UNTIL 

10 BEGIN 

11 OVER C' 1+- 

12 TGPOh 32 GVEF'': U> 

13 FLTBG 7GNDERR 

14 NXTGHR DUP 
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0 ( V a I D 13 S s L G A D r e d e f i n e c j 
1 

2 : FIXWGRD DGS 

3 0 =• BLK GFA '■' WORD • 

4 =• 8 GFA " WORD 2-\~ ' ; 

6 " FIXWGRD GFA '•' QUIT ' 

-r 

8 : LOAD DGS ( n - 

9 =' WORD D;i) >R >R FIXWGRD DRGP 
10 LOAD R> R> WORD Dl i; 

1 1 

12 !! (7L0ADING) 

13 0:=^^^ ' WORD 9 BRANGH GFA <> 

14 AND ;; (7LGADING) GFA 

15 '^LOADING 4 + • 



Bcr een i: 78 

0 ( valDGS;; FLGAD ) 
i 

2 DSF:;ERR EGFERR OR '?^SYSERR 

3 0=:^^ IF 0 END IF 

4 DUP 4 PIGF:: OVER 0=^^^ OR 

5 UNTIL 

6 PUT 2 DRGP 

7 HERE l-i F^ERE G' 5 

8 

9 s FLGAD DGS • - ) 

10 GETARGS 7WRGARG 44 GETARG 

11 IF SWAP GETVAL 1 •-- 0 MAX 

12 ELSE 0 END IF 

13 SWAP FLFL# >R 

14 =• WORD DUP :i) >R 2-!" iii) >R 

15 F ■' BRANGFH GFA :! LITERAL •— -> 
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0 ( valDGSi: DIP 
1 

2 DIP DGS ( 

3 DFLUNT 49 -i ALLNNS 2 +- G ! 

4 GETARGS 0^^^:^ IF ALLNNS END IF 

5 DUP l -i- Giii) 248 AND 48 === 

6 I F 

7 l 15 AND 48 -i-- ALLNNS 

8 2-+- G! ALLNNS 

9 END IF 

1 0 F IM G 0 N S Y S E: R R U N I T F 3 N G E T 

1 1 GR GR . " Fi les on;; " 

12 FSNAP 104 "I- 

13 BEGIN 

14 DUP G:;D -DUP 

15 WHILE 



Screen 82 

0 ( val DOS;! DIR > 

2 REF-EAT' 

DROP CR (^-R 

4 „" NAME EXT SIZE S 

5 EC ATTR " CR 

-I j- I I I -I -I I +• 

7 "I I- •■-•■I I !••" 

8 CR CR Cl-IKDIR DIJR 

9 BEGIN 

10 DIJR 0# ? TERMINAL 0^^^ AND 

11 NHILE 

12 2DUR - UNIT SWAR DIRTBL -i- 

13 Ci:i) ENTRY SRACE DUR 5 -i- 8 

14 TYRE DUR 13 -i- Cn) 32 <> 

15 IE 46 EMIT - > 
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0 ( val DOS;: CORY 
1 

2 ;: CORY DOS < 

3 BET ARBS 71/iRBARG 

4 61 GET ARB 7WRBARB 

5 DUR (ENTER) 0=^^ 

6 I F 

7 DSKERR ELEXBT - 7SYSERR 

8 END IE 

9 D U F' ( ? G R EN) ? S Y S E R R 

10 NOT PL CRN 7CMDERR 

1 1 (GREN) 7SYSERR 

12 <RGT DRGR OVER 

13 ELBURiii) Ca) 32 AND 

14 0^^^^ RLWRRT 7CMDERR 
15 



Screen s 
0) ( 



8 

val DOS 



D :i: R 



i:.T 
•.J 

6 
7 

3 
9 

1 0 
1 1 

12 

:i. 

1 4- 



EL... BE BRACE END IE 

DUR 13 -I- 3 TYRE 

DUF' 1 ^ 7 R 

DUF' 3 - i" iii) 6 R 

4 BRACES Ciii) DUR 32 AND 

IE 76 ( "L") EMIT END IE 

16 AND IE 82 ( "R") EMIT 

END IE 1 CR 

R ERE AT 

CR ESMAR 3 a) ... 

... " sectors f reen " CR CR 

DSKPLS 2DRGR 



•I t::;- 
.1 



Be reen r, 



4 

5 
6 



0 ( val DOS;; CORY 

:l. 

2 PNSUCH 65 ( "A") 
Z I F"- 

0 3RICF< (WIND) 7BYSERR 
END IE 
BEGIN 

7 0 >R ^!-4 ( % " ) BET ARB 0^^- 

8 IE DUR R> 1-!" :>R END IE 

9 ( D P E. N ) S Y S F;- R R S 14 A R D R. 0 R 

10 BEBIN 

11 URKSPC 128 3RICF=:: (READ) 

12 DRGR #UNTRN 128 <> 

13 WHILE 

14 WRKSF'C 12(3 #!..INTRN 

15 
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0 ( val DOS; 0REN7 
1 

2 s OR EN 7^ DOS ( 

3 CR 0 GUT ' MAX EL 1 -i- 1 

4 DO I EL BUR a DUR 

5 IE 8 -i" DUR Ca 

6 SWAR l"^• CoD 

7 I 0 <# # # #> T V RE 

8 OVER TO UNIT ENTRY 

9 5 "i- UNIT' CGNFN 

10 2 BRACES CR 

1 1 END IE 

12 LOOR 

13 DIRRLS OUT ^ 0^^^ 

1 4 I !•"" ' ' Fl o f i I e s o p e r V l; R E. H D I P 

15 CR ; 
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0 ( V a ]. D C] S s C 0 R Y R E. H A M E 
1 

2 5 RICK (WRITE) 7SYSERR 

3 REPEAT 

4 (CLOSE) R> 

5 UNTIL 

6 CR CR DROP DUR 

7 <ENDE) 7SYSERR 
B (CLOSE) DSKPLS 
9 

10 s RENAME DOS < 

11 GET A RGB 7WRGARB 

12 61 BET ARB ^^WRGARB 

13 SWAR (REN) 7SYSERR 

14 CR " Pile renamed" CR CR 

15 DSKPLS 



bcr een BB 

0 ( V a 1 1) C) S T: <H> V s tem w o r d s ) 
1 

2 QUAN WLDFLG QUAN SWITCH 

3 VECT DISK OP k/eCT mUT 

4 QUAN TEMF-' 

-....« 

6 (l:I1DPAF<) DOS ( - ) 

7 GETARGS TUIF^GARG 

8 BEGIN 

9 0 >R 44 ( % " ) GETARG 0== 
'■0 IF OUR R> >R END IF 

11 DUP TG Nl<|i FNGGN FNSWCH 

12 TG BIaUTCH 'miLD TG WLDFLG 

13 IF CHKDIR DUP DUP 0^:^:^ 

1 4 :i; I"- 

1"^ FNFLD UNIT CQMFN -••-'> 
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0 ( V a 1 1) G B s y b t e ivi e i"- cl 
1 

^ " " i s " $GUT " ed ' 

3 END IF 

4 ELBE 

5 DRGP 

6 END IF 

7 REPEAT 

8 DRGP 

9 ELSE 

^■0 CP 0 GUT • \\\1<^ 

^•J- IB GUT \v SPACES 

1^' " " is i 1 1 egal " 

13 END IF R> 

14 UNTIL 

15 DRGP CR CR DSKFLS 



:>c: reen 

0 ( 

1 



6 

7 
B 
9 

:l. 0 
1 ;i. 
1 .ti~ 

•f 

a. 

:l. 4 
15 



B9 

valDGE>s system words^ 

CR 0 GUT ' 

IB GUT ^ SPACES 

. " is non ex i stent " 

END IF 

BEGIN --DUP 

WH II....E 

DIRTBL GVER 3PICK 
C;;D UNIT SNAP ENTRY 5 

UNIT CGNFN 1 ULDFLG 
SNITCH 7B ( "N") <> * 
IF DRGI"-' CR $GUT SPACE 

DUP 1>„ „ " ? " "i-Y/N 
END IF 

0 GUT' ' 



Screen 92 
0 ( valDGSs 



1 



6^ 

"7 

B 

10 
1 1 

12 
1 3 
1 -^l- 
15 



^KILL 



KILL LGCK 
kill" s 



KILL DGS 

ASSIGN (KILL) TG DISKGP 
ASSIGN $KILL TG $GUT 
(CNDPAR) 



^LC^CK 



1 1 



1 OC 



1 1 



LGCK DGS 

A S S I (B Ki ( L D C l< : ) J 0 D ]: S K G F"" 
ASSIGN $LGCK TG $GUT 
(CNDPAR) n 
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0 ( V a ]. D l.) S ;: s y s t e f 1 ^ w o r d s 



J. 



B 

9 

10 

1 1 
12 
13 
1 •<•!• 

i::." 
•....I 



1 



IF DUP DISKGP 0::::^ SNAP CR 

IB GUT ;i) SPACES 

I F 

DSKERR FLGPN - 
IF 

» " i s open " 
ELSE 

DSKERR FLWPRT 
IF 

- " is 1 Qcked " 
ELSE „ " i s ???" 
END IF 
END I F 

ELSE — •> 
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/ a 1 D G S U N L G C K S E T U N I T 
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* UNLOCK „" unlock" 5 



4 " 

r - II 

'3 

6 



•7 



S 
9 

10 

J. 1 

J. x... 

1 3 
1 4 
15 



UNLGCK DGS 
A S S I G N ( U N L C3 C \< ) T G D I S K G P 
A S S 1 B N U N L G C K J G \p G U T' 
(CNDPAR) 



II 
•I 



BE TUN IT DGS 

GETARGS ^NRGARG GETVAL 
DUP 1 GVER 4 AND 

BADUNT ';^CMDERR 
1 TG DFLUNT CR r. 



( 
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0 ( valDGSs PRim 
1 

2 F'"RIIMT DOS < 

3 GEThF^(BB '"^WRGAF^G 44 GETAF^G 

4 IF' SWAP' GETVAL l- 0 MAX 

5 ELSE 0 END IE Sl^JAF' 

6 (OPEN) -^SYSERF^ SWAP DROP 

7 DUP <RGT GVER TG TEMP (SKIP) 

8 FNPLD UNIT CGNEN 

9 CR CR " E:i. len " CR GR 

10 ENSIAJGH 78 <> DUP TO ENSWGF! 

11 TEMP l -i- t TO TEMP 

12 BEGIN 

13 0 'INTERN I NAL ENSWGH t 0^^ 

14 IE DROP DUP (RDB) END IP 
1 5 
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0 ( valDGSs READ 
1 

2 s READ DOS < 

" 3 65535 GETARGS •"^^IslRGARG 

4 44 GETARG 7WRGARG 

5 SWAP 44 GETARG 

6 I F 

7 SWAP 4 ROLL DROP 

8 GETVAL <RGT 

9 END IF 

10 GETVAL <RGT 

11 1 TG TEMP PL OPEN (READ) 

12 0^ D 8 KERR EGFERR <> 

13 AND NOT 7SYSERR 

14 TEMP IF FL# (CLOSE) END IF 

15 CR DSKFLS ; 



be re en ;: "/d 

0- ( valDGS;: PRINT ) 

1 

2 WHILE 

FNSWCI-I 1 

4 IF 0 TO FNSWCFI TEMF"' 

5 I F 

6 TF-MF-" 0 

7 <# # # # # #> TYPE 

8 SPACE 1 AT TEMP -i- i 

9 ENDIF 

10 ENDIF 

11 DUP EMIT 155 TO FNSWCFI 

12 REPEAT 

13 (CLOSE) 

14 CR DSKF-LS :| 

:l. 5 - •■ 
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0 ( valDOSs WRITE 
1 

2 ;; WRITE DOS ( 

3 GETARGS 7WRGARG 

4 44 GETARG 7 WPG ARC 

5 SWAP 44 GETARG ^^WRGARG 

6 GETVAL SWAP GETVAL ROT 

7 2 TO T EMP PL OP EN (WRITE) 0^^^^ 

8 :i: i^"' 

9 DSKERR FLWPRT - 7 SYS ERR 

1 0 Fl....# ( CLOSE ) FLWF^-RT CMDERR 

11 ENDIF 

12 TEMP IF 

13 FL# (ENDF) -V^SYSERR 

14 FL# (CLOSE) 

15 ENDIF CR DSF::FLS ;; 



) 1 < 



:>cr een ;; 

0 ( V a I D 0 S z r- e a <::! / w r i t e la t ;i. 1 :i. t y ) 



Sc reen ;; 



^>9 



1 
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5 

6 
7 
8 

1 0 
1 1 

12 
13 
14 
15 



FLGPEN DOS ( 

DUP i-i- c;;d DUP 240 and 48 = 
:i: F 

15 AND SWAP DROP 0 TO TEMP 
ELSE 

DROF' T'EMP 2 AND 
IF DUP (ENTER) 0^^=^ 
IF 

DSKERR FLEX ST ^^^^^ 7SYSERR 
END I F 
ENDIF 

( 0 P EE N ) 7 S Y S E R R S W A F-' D F^ 0 F 
NDIF 



5 



6 
•7 

B 

1 0 
1 1 
12 
13 
14 
15 



CLOSE 



0 ( valDOS;; 
1 

2 ;; CLOSE DOS 

3 0 GETARGS 

4 1 F 

SWAP DROP GETVAL 
END IF 

(CLOSE) CR DSKFLS ;; 
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•I 
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screen;; 105 
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5 
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Q 


">■ 


■t r-i 

.1. f:,J 


■J i^-^ 
J. .v' 


1 :l. 


1 1 


•! •••;« 
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1 O 
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13 




14 
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c\ f- y ,v^n p r I s 1 0 7 B c: r e e r ! ;; 1 1 0 

(n 0 ( Utilss OPEN ENTEF< 



5 



1 



'■' ( FL !•••!....# ) ( 70 LOAD ) 



4 4 i: OPEN DCiS 

5 5 GETARGS 7WRGARG 
^ 6 (OPEN) '•^SYSERR 

7 7 CP . " Fi le access #" 

R 8 DROP CP DSKFLS 



9 

j0 10 s ENTER DOS 

j I 1 1 GETARGS 7UIRGARG 

12 12 (ENTER) '^SYSERR 

13 13 CR DSKFLS 
1 4 1 4 



J. w« 



S c: r- e e i" i :: 1 io B f e e n s 11 1 

0^ 0 (. I. J t :i. 1 li F S A C E: E N D :i: L 

1 1 

2 2 r, FSPACE DOS 

3 3 GETARGS TWRGARG 

4 4 44 GETARG 7WRGARG 

5 5 GETVAL SWAP GETVAL 

A 6 SIaJAP (SPACE) 7SYSERR 

7 7 CR DSKFLS ; 

8 ^ 

9 9 ;: ENDFIL DGS 

10 10 GETARGS 7WRGARG 

1 1 1 1 i3 E T V A l... ( E N D F ) 7 S Y E> E. R R 

12 12 CR DSKFLS :; 

1 3 1 3 

1 4 :l. 4 

1 5 ^ 



.1 4 



c r eer 


•i s 1 1 2 








0 ( 


[ It- i 1 ;i p ni IMF" "" V/*- 


*... V 1 1 


WD 


1'" ri <^ 
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l~'RPAr.F" 
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F'F'I....Ai^ ntlF"' 2!~i4 A 


N T) 

I 1 ■•>• 
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F-'FLAG ! space: PFL 


AG ! 


n 

[1 




5 








h T, 


f\ 




( 


c — 


"7 
.' 


127 AND DUP 










:;;!;2 < GVEF^: ( 


r t r- 


1? 
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124 > OR ( 


c 1 ear 


U M U . . 


1 0 


I )"•■ 








1 1 


DROP 46 ( " . " ) 








12 


END I F 
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EMIT ; 









Scre6?n ;; 1 1 5 

0 ( Uti Is;; FDUMP 
1 

2 I F" 

3 FNSWCH 16 =^ 24 30 ••!- 

4 GUT Q SPACES P SPACE 

DUP TEMP TEMP 0 
DG DUP I c;:i) Fu 
LGOP DRGP 

END IF 
9 REPEAT 

10 2 DRGP R> NGT 

11 2TERMINAL GR 

12 UNTIL 

13 DRGP (CLGSE) 

14 CR BASE ! DSKFLS ;; 
15 



5 
6 

"7 



B 



;:>(:; re en ;: 1 1 3 
0 ( Uti Is;; 



4 

5 
6 

y 

8 
9 

1 0 

1 1 
.1... 
1 :3 
14 
15 



F-DUMP 



FDUMP DGB , ( 

GET ARCS 71/JRGARG 
(GPEN) -^-'SYSERR 
FNFLD UNIT CGNFN 
CR CR " Fi le;; " CR 
8 FNSWCF! 87 - 1 -i- t 
TO FNSNCF-I SWAP DRGP 
BASE o) HEX SNAP 0 
BEGIN 

NRKSPC 128 4 PICK (READ) 
>R 128 #UN FRN NRF::SPC 
BEGIN 

GVER 0> ^^^TERMINAL 0- AND 



Screen ;; 1 1 6 
0 ( Uti lS5 



1 



4 
5 

A.. 

K..} 
— » 

9 

1 0 

1 .1 

12 
13 
14 
15 



REWIND EGF 



REN I ND DCS 
GETARGS 'I^NRGARG 
GETVAL 1 SNAP (WIND) 
7SYSERR CR DSKFLS 

e:gf DGS 

GETARGS 7NRGARG 
GETVAL 0 SWAP (WIND) 
7SYSERR CR DSKFLS ;; 



■screen :; 114 

0 ( Utilss FDUMP ) 
1 

2 WHILE 

3 3 PICK FNSWCF-} MGD 0^^- 
^•!- I F 

5 CR 0 TG TEMP 

6 0 GUT ' 3 PICK 0 

7 <# # # # # #> 

8 TYPE SPACE PSPACE 

9 END IF 

10 DUP Ciii) 0 <# # # #> TYPE 

11 SPACE l-i" ROT l -i- 

12 RGT 1 RGT 1 AT TEMP h- ! 

13 GVER 0:^:: 4 PICK 

14 FNSWCH MGD 0=^ GR 

1 5 •> 



Scr 6r'e?n ;; 1 1 7 

0 ( Uti I si: NAMED I SK 
1 

2 ;; NAMED I SK DGS ( 

3 DFLUNT 14- GETARGS 

4 IF SWAP DRGP GETVAL END IF 

5 DUP 1 GVER 4 > GR 

6 NGT BADUNT '^^CMDERR 

7 1- FSMGET FSMAP 104 -i- 
B CR . " Glds " DUP 

9 BEGIN DUP C:l) -DUP 

10 WHILE EMIT li- 

1 1 REPEAT 

12 DRGP DUP 20 ERASE CR 

13 „" News " 20 EXPECT CR CR 

14 1 FG 7FSMUP DSKFLS ; 
15 
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0) 0 ( F-mtrss FMGVE 

7 2 s F"hC3VE DOS ( 

"T 3 GETARGS ?WRGAFi:G 

4 4 61 GETARG 7WRGARG 

5 0 (CLOSE) SWAP I MS IN 

A 6 (OPEN) 2SYSERR <ROT DROP 

7 7 DSKFLS INSDST DUP (ENTER) 0 

R 8 I F 

9 9 DBKERR FLEX ST '"^SYSERR 

■\0) 10 EN DIE 

•I 1 1 1 ( 0 p e: n ) s Y s e: r r s\^i a }•■•• d r o f 

y? 12 begin 

•{-r 13 INS IN PAD DUP 1 AND -i- 

14 14 TGPGN over 4 PICK 

•{-; 15 (READ) INSDST PAD DUP 



4 



5 

6 



B 
o 



S c r e e n 1 1 9 S c r e e r i ;: 122 

' 0) 0 ( Fmtrs:: FNGVE 

1 i 

2 2 1 AND ••{•• TADR GVE!--< 

3 3 4 pick: (WRITE) DSKFLS 0^^^^ 

4 IF DROP (CLOSE) (CLOSE) 

!5 DSKERR CNDERR 

6 END IF 0^^^^^ 

7 .7 UNTIL 

B D U F' ( E. N D F ) < R 0 T ( C I.... 0 S E ) 

9 (CLOSE) 7SYSERR CR CR DS!-:FLS 

1 0 1 

;} j 1 1 :; GET NUN ( n 

jl'7 12 HERE 14- 10 EXPECT HERE l-^ 

•13 13 BEGIN DUP 09 WHILE l-^- REPEAT 

j'4 . 14 BL SWAP C! HERE NUMBER DROP ;; 



1 



1!: 



I 



E>cr een ;; 1 20 

0 ( Fmtrs;; system words ) 

1 ( F[...FL# ) ( 70 LOAD ) 

3 :: INS IN CR 

" I n s e r t s c:) li 1- c e s < S T A 1-^: T > ' ' 

5 BEGIN 

6 7TERNINAL 1 

7 UNTIL 

8 46 EN IT 5 
9 

10 ;; INSDST CR 

1 1 " ;i: n s e r t cl e <b t :: < S E L E! C T" > ' ' 

12 BEGIN 

13 7TERNINAL 2 

14 UNTIL 

15 46 EN IT 5 



Screen 1: 1 23 

0 ( Frntrss system words 
1 

2 ;; LOCKOUT DOS ( i." s cnt 

3 ROT FSNGET 0-i S 

4 DO 

5 I l-i- 8 /NOD FSNAP 10 -t- 

6 SWAP 128 

7 BEGIN OVER 

8 WHILE 2/ SWAP 1 SWAP 

9 REPEAT 

10 SWAP DROP DUP 255 XOR SWAP 

11 3PICK C:;D AND 0# FSNAP 3 h- 

12 DUP a ROT •- SWAP ' 

13 OVER 09 AND SWAP C\ 

14 LOOP 

1!5 1 TO 2 ESN UP ; 



c:r een 1 24 

0 ( Fmtrsn FGF<MAT ) 
1 

2 F-OF<MAT DOS ( - ) 

3 DF-LUNT l -f- GETAF<G8 

4 IF BETVAL SWAF DROP END IF 

5 DUF DUP 1- TO UNIT CR CR 

6 " Format unit " „ „" ^T" " "i-Y/N 

7 1 F 

8 DUP WRKSPC 772 ' (FMT) 

9 DROP WRKSPC 128 ERASE 

10 2 URKSPC C! 

11 URKSPC l-i" 707 OVER • 716 

12 SUtAP 2 - i- • 15 WRKSPC 10 C! 

13 WRKSPC 11 + 89 255 FILL 

14 l- 720t 359 

15 WRKSPC OVER 0 R/W -••--> 
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0 ( F'mtrsr. system words ) 
1 

2 0 VARIABLE SEC /PAS 

3 0 VARIABLE SECNT 
4 

5 s AXLN DOS ( system ) 

6 4 PICK 0 

7 DO 3PICK I 128 * -i- 

8 3PICK I 3 PICK R/W 

9 LOOP 2 DROP 2 DROP ; 
1 0 

11 n DCSTP DOS ( ) 

12 DSKFLS TOP ON PAD DUP 1 AND 

13 ~" 0 128 U/ SWAP DROP 

14 SEC /PAS ! 0 SECNT ! i; 

1 5 > 



c r e e n 
0} ( 



mt r s 



FORMAT 



4 

i:::' 

6 
7 
B 
9 

1 0 
1 j. 

12 

1 

1 4 
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UNIT 359 9 LOCKOUT CR CR 

" Di sk names " 
FSNAP 104 •+• 20 EXPECT CR CR 
„ " Lock out error screens? " 
-i-Y/N 
I F 

UNIT 695 24 LOCKOUT 
END I F 

BEGIN CR CR 

„ " Lock out sectors'"- " 
-i-Y/N DUP 

:i; F- 

UNIT CR 
" Fi r st sector i: " > 
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0 ( Fmtrss 
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1 1 
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D ISKCOPYl 



DISKCOPYl ( - ) 

DCSTP 
BEGIN 

CR INS IN 

720 SECNT ;i> SEC /PAS 9 NIN 

DUF-' >R F-AD DUP 1 AND SE.Cm 
;:D 2DUP 5 PICK <ROT 1 AXLN 
INSDST 0 AXLN CR 
R> SECNT SECNT ;iD DUP 

,: " ^H> e c: t o r' s c c: • p :i. e c / 

UNT I L 

NTB CR r, 



( 



creenn 1 
0 ( F-mtrsii 
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B5 G, 00 G, D0 G, 02 G, 
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h 
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7 
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B 
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d TO 
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6 EABEE SRGH$ 34 AEEGT 0 SRGH^fi G! 
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CURLGG DUP G;D 
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fi 
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4 
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15 



1 0 
1 1 
1 ji... 
13 
14 
15 



253 EMIT 
BEGIN 
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0 ( val DOS -f i 1 e edi toi" 1 « 0 
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LNGVE ( f t 

40 GMDVE ? 
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10 

1 1 
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1 1 
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128 GR SWAP G! ? 



a 
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;!; PIGK 
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1 

2 DISPLAY ( - ) 

3 TGF1....N 2 DSi-TGF- 

4 16 0 

5 DO 

6 PAD 40 BLANKS DUP 

7 PAD 2 -I- UN CRAM DUP ROT - 
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12 END IF 
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2 i: ROLL UP ( 

3 DSP TOP CS 

4 7ENUF SWAP li- TO DSPBGT 

5 16 <> DSP BUT Ca 0^=:^ OR NOT 

6 IF 

7 CURLN NXTLN TO CURLN 

8 TOPLN 2 " DUI-' 40 -i- SWAP 600 

9 CNOVE PAD 40 BLANKS 

10 DSPBOT PAD 2 "I- UNCRAM DROP 

11 PAD BOTLN 2-- LLEN >BSCD 
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3 DSP TOP DUP 
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5 I F 

6 CS DSP TOP PRVLN 
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14 NORPT 
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2 I DNCUR ( - ) 
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6 RGLLUP 
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12 END IF 

13 END IF 
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37 XLGC CNGVE 


C) 

1 


!! RT' 


CUR 


( 


) 


B 


END IF 


9 


V 1 

.'\ ».... 


GC 1-t" DUR 37 > 




9 


0 CURLGC 


1 0 


1 1"" 
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0 ( val DCS f i 1 e ed i tor 1 . 0 



INTGL 
I NSRT 

CLREGL 



NG T" T G I NSRT NGRRT 



/—V 
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LNINS 
72BIG NGT 
IF 

CS YL GC 15 



6 


CBL 


.ANK G 


GRSV 


CURL 
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o 


IF BGL 2 


DUR LI 


...EN -i- #LN5 
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/ 


ERh 
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DHRK 


NGRRT 
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YLGC 
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C> 

/ 
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END IF 
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CURL..N 


10 
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10 
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BWAR <Cr 
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95 
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SWAR C» 
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IB C, 
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END IF 
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o 
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1 1 
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BGNXT ( ■ 

CS 0 TG XLGC 

CURLN NX TEN Ca 0=^== RTFLG GR 

72BIG NGT AND 

IF 

CURLN NX TEN 

DUR DUR H- TXTEND 3 RICK 
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1 AT TXTEND -H 

DISRLAY 7FULL 
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END IF 
DNCUR 
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0 ( val DOS -f 3. 1 e ed i t or 1 . 0 ) 
1. 

2 2 LNDEL ( ) 

3 YLGG CURLGC 40 -h C;ii 

4 64 <> OR 

5 IF C BLANK GOF"'BV 

6 GURLN DUP NXTLN 2DUF"' 

7 SWAP TXTEND 3 PIGK - 2+ 

8 GMGVE - AT TXTEND -i- ' 

9 0 TG "^MARK BE TEN D I BP!.... AY 

10 CURLGC Co) 64 - 

11 IF UP CUR NGRPT END IF 

12 CSHGU 1 TG ';^UPDAT 

13 ELSE 

14 NGRPT 

15 END IF > 
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1 

2 n >BFNXT BFCPY DNCUR ; ( 
3 

4 n >BFLN BFCPY LNDEL ( 

I 

6 : BFRPL ( 

7 CBLANK GGPBV. 

8 PBLL 2-i- BGL 38 CNGVE EDNRK 

9 <BFRGT CSHGW EDNRK 
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11 i; TABBTP ' ( 

12 XLGC 8 /MGD TABS •+• 

13 SWAP 2"- GVER Ca GR 

14 BUAP C NGRPT ; 
15 
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BBL LLEN 5 ^: CMGVE 



6 
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8 
9 
1. 0 
1 1 
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Bi....EN LLEN CMGVE 
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BFSHU 

BFCPY 
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4 
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9 
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TABCLR 

XLGC 8 /MGD TABS -i" 

SNAP 2-- 255 XGR GVER 

Ca AND SNAP C! NGRPT 



TAB CBLANK 
38 

BEGIN 

1 1 AT XLGC "M XLGC 

38 NGD 8 /MOD TABS 
C;:i) SWAP 2-'- AND GVER 0 
UNTIL DRGP XLGC 
38 /MGD SNAP TG XLGC 
IF DNCUR END IF CSHGW n 



GR 
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0 ( V a ]. D G S i lie e d i. t o r 1 0 ) 
1 

2 s < BFRGT ( ) 

3 PBLL DUP L.L EN -i- I....MGVE 

4 PBL DUP LLEN -i- 

5 BEEN LLEN <CMGVE 

6 PBL DUP BEEN -i- 

7 SWAP LMGVE BFBHW n 
8 

9 BFCLR ( ) 

10 PBLL LLEN ERASE 

11 < BFRGT 
12 

13 ?, BFLN> ( ) 

14 LNINS PBLL 2-i" BGL 38 CMGVE 

15 CSHGW < BFRGT EDMRK ; > 
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0 ( val DGS file edit or 1 . 0 
1 

2 "u RUB ( 

3 XLGC 

4 . IF LFCUR 0 CURLGC C 

5 CSHGW EDMRK 

6 END IF 

7 INSRT IF BYTDEL END IF NGRPT 
B 

9 i; BGTBCR ( 

10 15 XLGC - DUP 

11 IF 0 DO DNCUR LGGP END IF 
12 

13 I! GGPS ( ••- 

14 LNINS GGPSLN BGL 38 CMGVE 

15 EDMRK CSHGW NGRPT 
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0 ( val DOB -file ed i tor 1 . 0 
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PI [Z\\R 
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1 


FORTH DEFINITIGNB 
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1 1" 




4 


D „ INFO EDITOR 




1 TO PTF--LG BON XT 




5 


CR » " Fi le start: addr 


{:> 


ELBE EDMRK 




6 


TXTBOT DUP U. 


„„ 
.' 


INBRT IF-- BYTINB END IF 




7 


C F'^' . " File e in d a d d y" :: 


B 


LBTCF-IR >BCD CURLOG C 




8 


TXTEND 2- DUP U„ 


9 


XLOC 37 ^ 




9 


CR . " Fi le counts " 


10 


IF 1 TO PTFLB BON XT 
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BWAP -~ U. 


1 1 


ELBE RTCUR END IF CBHOIaJ 
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CR u " Bytes free;; " 


12 


END IF ; 
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MENTOR TXTEND - 
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.1 
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0 ( V a 1 D 0 B f i ]. e e d 1 1 o r 1 0 
1 

2 NXTBCR • ( 
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4 
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IF 14- 37 88 0) 25 i C! END IF 
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8 
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ULTI 
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IF 2 "I" 57 88 
TO ? MULT I 1; 



5 C! ENDn" 
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0 ( val DOS file editor 1 „ 0 
1 

; iAlIPEIT 

88 a 40 "I- 640 ERASE 
12 84 C! 0 752 C CR s 



4 
5 

6 s 

a 



9 



10 
1 1 

1 JL~. 

13 
14 



15 



FLFL 

TXTBOT F-IOME \ 



FELL 

TXTEND 2 



15 0 



DO PRVLN LOOP HOME BO T SCR 

FLEN ( 

CURLN NX TEN DUP 

2-i- TO TXTEND 0 SNAP ! DC 



Bcreen n 1 32 

0 ( V a ;!. D 0 B file e d 1 1 o r 1 „ 0 

1 s BPLT < 

2 cblank bol ednrk 38 cmove 

3 xloc clreol 1 to ptflg bon xt 

4 cblanh:: to xloc edwr^:: xloc +• 

bol xloc "«•• 38 xloc cmove 

edmrk: cbhow ^ 



5 



6 
7 
& 
9 

10 
1 1 

12 
13 
1 4 

•.J 



1 



-BPLT ( ) 

CURLN TXTBOT <> 

IF CBLANF< BOL EDWRF< 38 CMOVE 
LNDEL UPCUR CBLANK OOPBV 
EDNRK XLOC -i- BOL XLOC -i- 
38 XLOC - CMOVE CBHOW EDMRK 
EDWRK OOPBLN XLOC CMOVE 

END IF NOR FT -> 



Screen s 



1 



0 ( val DOB -file ed i tor 1 „ 0 



1 



6 
7 
B 



10 
1 1 
12 

13 
14 
1 5 



n 

SI 



BRCH 

BRCH$ 00 

IF CS CURLN XLOC -t" 1-+- TXTEND 
OVER - BR CH^I> COUNT MATCH SWAP 
IF CURLN XLOC 4- DUP 
PRVLN DUP TO CURLN - 
TO XLOC 0 TO YLOC CURLN 
6 0 DO 

DUP PRVLN SWAP OVER 
<> AT YLOC ••«••! 
LOOP TO DBPTOP GETLN DC 
ELBE DROP WIPE IT CR 

, " N C3 1 iou n cJ " C R [4 T F F' L 
END IF 
END IF ; 



Screen i; 1 36 

0 ( va 1 doe; f i 1 e ed i. t or 1 0 



Screen s 



1 



4 

6 

~y 
I 

8 
9 

:L 

1 1 
12 

:!. :::!: 
:l. 

15 



m PAD 24- 
BEGIN DUF* R 
WHILE l-i" REPEAT DUP 
BEGIN DUP CQ DUP R <> 

SWAP 0# AND 
WHILE l i- REPEAT OVER - 
1- G! 1- R> DRGP s 



( 



STSRGH 

. " ? " PAD 31 EXPEGT 
CR 88 8 564 -i- SR GH$ 1 4 GR 

1 SRCH$ G! SRGH$ l -i- DUP 

33 BSGD> SR GH i; 



^ ) 



GVE 



4 



6 
7 

9 
10 
1 1 

1 3 
14 
15 



1 39 

( va 1 DOS file:? ed i t or 

I 8UBGMD 
GS WIPE IT 



1 „ 0 



I i 



1 1 



PAD 32 ERASE 
PAD 31 EXPEGT GR PAD ;D 



BEL ( 8T) 21587 
( EN) 20037 
( PL) 19526 
( LL) 19532 
< IP) 17993 
( PS) 21328 
( RT) 21586 

\6 

NG8EL BADSUB 
SELEND q 



PL ST 
PL EN 
PL PL 
PLLL 
INPL 
STSRGH 
TABRST 
DG 



Screen « 137 

0 ( val DGS -file ed i tor 1 . 0 ) 
1 

2 I! INPL DOS ( ■ - ) 

3 INSRT 0 TO INSRT 

4 BL, GET$ (OPEN) 

5 IP DG LNINS 

6 BEGIN 

7 7TERNINAL ^^2BIG GR NGT DUP 

8 IP DRGP DUP (RDB) END IP 

9 WHILE 

10 DUP 155 

11 IP DRGP 13 END IP 

12 TG LSTGHR PTGHR 

13 REPEAT (GLGSE) DRGP 

14 ELSE GR 

15 «" Unable to load file" - > 



Screen :: 1 40 

0 ( val D G S f :i. J. e e c i 1 1 o r • :l. „ (6 
1 

2 I! EDTABT ( • 

3 GS WIPE IT " Abort? " 

4 •i-y/N 19 % DUP TG LSTGHR 0^^=^^ 

5 IP DG ELSE -^UPDAT 0^^::: 

6 IP GURLN TXTBGT TG ED#IN 

7 ELSE TXTBGT DU!"-' TG DSPTGP 

8 TG GUI"<LN 0 TG XLGG 0 TG YL..GG 

9 END IP END IP NGRF'T i; 
1 0 

11 I EXIT DGS ( 

12 GS WIPE IT 8 84 G! 

13 INFG GR . " Save " 

14 EDN2<li GOUNT TYPE « " ' 7 " 

15 +Y/N 19 ){< DUP TG LSTGHR 



Screen 138 

0 ( V a I D G S f He e d i. t o r 1.0 ) 

1 GRWT WIPE IT DG 

2 END IP TG INSRT ; 

4 n PLST ( ••■ ) 

5 GURLN TXTBGT 2 DUP 

6 TXTEND GURLN H- GNGVE 

7 MINUS AT TXTEND 4' PL PL 

8 

9 :i TABRST ( - ) 

10 TABS 4 68 PILL 

1 1 36 TABS 4 -I- C ' DiZ ; 
1 

13 BADSUB ( - ) 

14 GR „" Bad subcommand" 

15 GRWr WIPE IT DG :; -> 



Screen s 141 

Q) ( V a 1 D G S t i. I e e c:l i t o r 1 „ 0 

1 IP EDN21i (GPEN) 0==^= 

2 IP 0 DSKERR PLDNE --^ 

3 IF DRGP EDN2^^i (ENTER) 

4 DRGP EDN2$ (GPEN) 

5 END IP 

6 0::==^ IP DG ;S END IP 

7 END IP 

8 SWAP DRGP TG EDPL# 

9 TXTBGT TXTEND 2- GVER 

1 0 1E: D !"• L # ( W R I T" E ) D R C] I"-' E- D F- 1.... # 

11 (ENDP) DRGP EDPL# (GLGSE) 

12 GURLN TXTBGT TG ED#IN 

13 ELSE 

14 DG 

15 END IP :i 





E'h;: 142 








0) 




f i 1 P 


ditor 1 




1 

'~> 


" rnMTpni 






( n 


A 

r 


1 9 ■> 


e: X 1 1" 


17 - 


> EDTABT 


is:' 


'•:>Q — :• 


LIPCUF< 




> DNCUR 


w 




LP CUR 


31 


> RTCUR 


—>• 

y 


•} -.^ A ■> 


RUB 


127 


> TAB 


r\ 




I NTBL 


155 - 


> BUM XT 


O 


255 •-> 


BYT IN 


IB 254 


> BYTDEL 


1 (-'^ 

•X* a H 


157 


LMIMS 




> LMDEL 


■J. i 


IB 


BP ROT 


X.- 


> <BPROT 


a. 




BPCLP 


11 


> >BPMXT 


1 3 


20 -"y 


>BPLh 


! 6 


> BPLN> 


14 


16 ••-> 


PRVBC 


:R 14 


> NXTBCR 


15 


15 ■■■-'■} 


□GPS 







) 



Screen 145 

0 ( val DOB f i 1 e ed i tor 1 0 

1 

2 BUJAP DROP TO EDPL# ^ 

3 0 TXTBOT 2- ! 155 TXTBOT CI V 

4 TXTBOT MEMTGP OVER - DUP 

5 <ROT EDPL# (READ) 

6 IF EDFL# (CLOSE) 

7 FLTBG CMDERR 

8 END IF 
DSKERR EOFERR - 7SYBERR 
EDFL# (CLOSE) 

#UNTRN - DUP 0^ "I- TXTBOT + 
DUP 2-*- TO TXTEND 0 BUAP ! 
0 TO ED#IN 0 TO ? UP DAT \ 



9 
10 
1 1 

.1. a~ 

1 
14 
15 



Screen;; 143 

<)s (. V a I D 0 S t lie e d i t c:) r 

1 

2 27 ••-> SPLCHR 

3 21 > BFRPL 

4 24 > ROLL DM 

5 22 -> BUBCMD 

6 10 -> SPLT 

7 159 TABS TP 
R NOBEL PTCh-IR BEL.. END 

' .) 
"*/ 

10 ;; 2 STROKE 

11 ^^^NULTI 1 

12 IF DROP PTCNR 

13 ELSE 

14 ? MULT I 2 

1 5 I F 







Screen 


2 1 4 .6 




or 1 


0 ) 


0 ( 
1 


val DOS file 


edi tor 1 - 0 


>""\ ..... ■•• 
('...» 


CL..REOL 


r> « 


PROCESS DOS 




«— . — . 
,u.. \_/ 


NULTI 








5 


ROLL UP 


4 


0 GR. 1 752 


C ! CLS 


12 •••-> 


SRCH 


5 


112 560 ;:i) 6 


C 




SPLT 


6 


112 560 0 2: 


ii; "i- C ! 


vj':::> 


TABCLR 


7 


Fi 1 es " 


EDN21> 


.ND II 




r\ 
\'..} 


28 85 ! 






9 


„ " #Buf BS " 


BLEN LLEN / 




( ) 


10 
1 1 


GETLN DC 








1 


PAD 7PADBM ( 


:]VER TO 7PADBN 






1 ::!; 


PBL o) ?BUFBr 


■'■\ AND NOT 






1 4 


IF PBL BLEN 


ERASE END IF 






15 


BFBHW 





r 



: r~ e? 
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0 

1 


( val DOS file edi 


tor 


1 . 0 


) 


f~S 
' 


BEGIN 

8 53279 C ! 


DUP 


CONTROL 




4 


7NULTI NOT 


7TEI 


"iJNINAL OR 




5 


UNTIL 








6 


DROP END IF 








•->' 


END IF 








8 


0 TO LBTCHR NGF 


;.pj 








0 88 0 25 C! 


u 






1 0 
1 1 


i; EDTSTP DOB 




( %o %\ 


- ) 


12 


DECIMAL 1 PEL AG ' 






13 


PBL BLEN ^" LLEI 




2-I" 




14 


TO TXTBOT 








15 


EDNlli (OPEN) 7: 


3YBE 


Fi;R 





Bcr ee?n s 1 47 

0 ( val DOB -f lie ed i tor 1 0 



1 

'"> 

4 

5 

7 

9 
1 0 
J. 1 
12 
13 
14 
1 5 



EMEGIN 

"iNKEY^ DUP TO LBTCHR -DUP 
I F" 

7NULT I 

IF 2 ST POKE 

ELSE CONTROL END IF 

ELSE 
INSRT 

IF C BLANK ( PAUSE) 

2D UP DROP DROP CBHOW 
END IF 
END IF 
LBTCHR 19 
UNT IL 



( 



Screen;; 14E) 

0 ( valDGS file editor 
1 



5 



6 
7 
B 
9 

1 0 

1 I 

■I ' 
J. .ul. 

1 :;!; 

1 4 

15 



0 767 C ' 0 ■7552 G 
2 '560 6 -i" G ! 
2 560 23 -I- G ' 
Gi.j;i> CR 
" Last edi t i n 
GFi: INF G GR 
F'BL TO '?^BUF-S{i 
DBKF-L.B 



1 „ 0 



EDN21i 



10 
1 1 
12 
13 

14 
15 



1 1 



Screen 1 5 1 

0 ( V a 1 D 0 S i i I e e d i t o r 1 . 0 
1 

2 UNIT FShGET 

F'ShAP 3 •i" 0 SWhF' DUF-' 20 
IF CR 

„ " l^J a r n i n g , d i s l< b p a c e 
IF „ " low" 

ELSE » " empty" END IF 
„" n edit?" 

•i-Y/N NOT GF< IF 1; S END IF 
ELSE DF<GP END IF 

UNIT DIFi:TBL GQ ENTFW 32 AND 

IF GR 

„ ' • F" i I e :i. s I o c k e d , e cJ i t " 
•i-Y/N NOT GR IF ;S END IF 
END IF > 



4 
5 
6 
■7 
8 



Screens 149 

0 ( val DOS f i I e ed :i. tor 1 « 0 
1 

2 FGRTFI DEFINITIONS 
. *i 

4 EDIT DOS ( 

5 GETARGS 7WRGARG 

6 TOF'ON 40 EDITOR TO MENTOR 

7 DOS 44 ( " " ) GE T ARG 0^=^^ 

8 IF DUP END IF TO Nl$ TO 

9 0 (GLOBE) Nl$ (70PEN) 
1 0 I F 

1 1 0:=::^ F" LORN 7GMDERR 

12 ELSE 

13 DBF ERR FLDNE 7SYSERR 
1 4 



Screen 1 52 

0 ( val DOS t i I e edit or- 1 0 
1 

2 Nl^li EDITOR EDN1$ OVER 

3 G<D l-i" 16 NIN GNOVE 

4 DOS N2$ EDITOR EDN2$ OVER 

5 G;:D l^" 16 NIN GNOVE 

6 EDTSTP 0 TO INSRT 

7 TXTBOT DOR TO DBF TOR TO GURLN 
e 0 TO XLOG 0 TO YLGG GETLN 

9 (:::r info grwt RRor:ESS ; 

10 

1 1 FORTH 

12 

1 

1 4 

15 



Screens 150 

0 ( V a 1 D D S f i. :i. e e d i t o r 1 „ 0 
1 

2 GR Nl$ 

"5 u ' ' c:! D e s n o t e x i s t ^ c. r" e a t e 7 

4 -i-Y/N NOT GR IF 1; S END IF 

5 Nl^^i (ENTER) '?^SYSERR 

6 END IF 

7 UNIT DIRTBL G;iD ENTRY 1 :D 

8 N2$ (70REN) 

9 :i: F- 

10 0:^^ FLOFN ';^GNDERR 

11 UNIT DIRTBL 09 ENTRY 1 -i- 5) 

12 ELSE 

13 DBF ERR FLDNE - '^SYSERR 0 

14 END IF 
1 5 



E>creen 153 

0 ( V a I D 0 S f • i I e e d i t a r 1 « 0 ) 
1 

2 s LL EDITOR ( ) 

3 EDN2$ EDN1$ 16 GNOVE 

4 RAD ';^RADSM < > 

5 IF- 0 TO XL... 00 0 TO YLOG RBL 

6 BEEN -I" LLEN -i- 2+- DUR TO TXTBOT 

7 DUR TO DSRTOR TO GURLN 

8 GETLN END IF EDTSTR RROCESB ; 
9 

10 s WHERE DOS ( ) 

1 1 FLFLtt FLBUFa - DUR 0^ 

12 I F' 

13 GR " No E:rror on record.:.:." 

14 GR QUIT 

15 END IF - > 



Screen:: 154 Screens 157 

0 ( valDOS file editor 1 0 ) 0 

1 1 
0 (CLDSt::) 14 ;;d 2 
FLNME EDITOR EDN1$ 16 CMOVE 3 

4 DOS FLNME EDITOR EDM21> 4 

5 16 CMOVE EDTSTP 5 

6 1 TXTBOT DUP PRVLN 6 

7 SWAP OVER 1- TO XLOG 7 

8 DUP TO CURLN 0 TO YLOC 6 0 8 

9 DO 9 
10 DUP PRVLN 10 
1 1 SWAP OVER < > AT YLOC ••{" ! 11 

12 LOOP 12 

13 TO DSPTOP 13 

14 1 TO INSRT 14 

15 PROCESS ; 15 



•..|. 

. 'i 



Screen:] 155 

0 ( valDOS file editor 



1 



r-:: 



6 



1 . 0 



-.1/ 
'■»•• 



#BUFS EDITOR 
5 MAX 320 MIN LLE 
' BEEN ' 0 TO 7PADSM 
PBL BEEN -i" LLEN -i- 2-i- 
DUP TO TXTBOT DUP 
TO DSPTOP TO CURLN 
0 TO XLOC 0 TO YLOC :] 



10 FORTH 
1 1 

12 BASE ' 



1 4 
15 



I"! 



Screen: 15E1 
0 
1 



4 



6 



8 
9 

1 0 
1 1 

1 jIL 

13 

^- ^\ 
1 



Screen :: 



0 

1 



4 



b 



1 uJ'.. 



B 
9 

:(. 0 
1 1 
12 

1"!*' 

14 
15 



bcr een-s 
0 



159 



.c. 



4 

cr 
•.J 

6 

"7 
I 

B 
9 

1 0 
1 1 

12 
13 
J. 4 
15 



r 



Bcr' een;; 160 
0 ( -f i 1 E 
1 

CL.B 

CR CR CR 



1 -i- 
15 



Le editor load message 



4 " 


V a 1 D 0 S and t h e b a 


.sic DOS 




c a r\\ m a n d rn li s t b e? 


loaded" 


C'.> It 


b e -f CD i-" e t ! "I e f :i. 1 e e 


'd i tor " 


.'■ II 

8 CR 


i s com pi 1 ed « " 




<::? • ' 


I n s e 1- 1 t h e v a 1 D D 8 


I disk 


10 " 


and load the necE= 


* s s a r" V ' ' 


1 1 « " 


rout i nes " 




12 CR 






13 FLl 


ISH 





CR 
CF< 
CR 
CP. 

CR 
CR 
CR 



Screen s 1 63 

0 

1 



6 

7 
8 
9 
10 
1 1 

1 jIm 

13 
14 
15 



cree^riu 161 

0 

1 


Scr 
0 

1 




7 


4 


• \ 

4 


5 


D 


A.. 

T 

8 
9 


■ 

"7 

8 
9 


10 

1 1 


1 0 
1 1 




1 


13 


13 


1 -1- 


14 


15 


15 


ere ens 162 


Sr r 

0 


0 
1 


1 










4 


4 




5 


/ 

C.) 


6 


•"V 

/ 
/ 

8 


7 
8 




9 


1 0 


1 0 


1 1 


1 1 


12 


12 


13 


1 3 


1 4- 


1 4 


15 


15 



1 64 



1 65 



c)C r C"?e^n :: 166 Screen i; 1 69 

0 0 

1 1 



4 



4 
5 

6 



7 

8 8 

9 9 

I 0 1 0 

II 11 

1 2 1 2 

1 -3 1 Z 

1 4 1 4 

15 j. 5 
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1 



4. 



7 



9 



10 
1 1 
1 .c. 

1 5 
14 
15 



Sere Een 

0 CGN TENTS GF THIS DISK^ 
1 

2 CASE STATEMENTS s 

3 SCF<EEN CODE CGNVEF^S I ON 

4 KEYSTROKE IaIGRDSs 

5 DOS FILE EDITOR 1.0s 
6 



50 LOAD 

60 LOAD 

70 LOAD 

100 LOAD 



/ 



* * * C: A LI T I G N * * * C A U T I G N 1 1 * M 
8 

9 This is a DOS format disk 

10 with screens 50-79 and 100-179 

11 1 c c I-.; e d a u. t -f o r F 0 R T H s o l.i r c b 

1 2 c: c) d e » D o n a t b t e r e f- • G f j" H 

13 code? on screens that are not 

1 4 1 DC k ed out ! 
15 



Sc r een n 



168 



Screen s 1 71 
0) 





1 






•J' 


...|« 
•..!' 


4 


4 


5 


c::' 


6 


6 


7 
S 


■"7 

/ 

3 


o 

/ 


9 


10 


1 0 


•J. 1 


1 1 


12 


1 
.1. 


13 


13 


1 4 


14 


15 


15 



Screen 1 72 



1 



Screen s 



1 7 



"7 c:: 



/j. 



B 
9 

10 

1. 1 

1 

1 ::::: 
1. '^i- 



1 



!:."• 



0 
1 



4 

C) 
7 
8 
9 
10 
1 1 
12 
13 
14 
15 



File is too b i g 

Fi 1 e i s random 

f-" i :i. e i s n o t r a n c:! o rn 

No room for random map 

R a n d o m m a p i. s- b a d 

F~ 1. 1 e i s £-1 cj e \'' :i. c: e f :i. J. €•? 

F" i 1 e i tH> not a e v i c:; e f i 1 e 

Illegal access to device file 



E)creen;; 17 

0 

1 



Screen s 1 76 

0 ( Elrror messages 
1 

2 Stack empty 



./j, 

in:- 
.J 

6 

'••7 

> 

B 
9 
1 0 
1 1 
12 

1 



15 



4 D 3. c: t i o n a r v f n 1 1 

ir; 

\..> 

6 W r" c» n g a d ci r e s s i n ci m o d e 
7 

5 Is not unigu.e 
9 

10 Value (arror 
1 1 

1 2 I) i s k a ( J d i'-* e s i-:::- e v r i- " 
1 3 

14 Stack full 
15 
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Screen ?. 1 77 





( valDGS error messages 


) 0 


1 


1 1 legal f i 1 en a me 


1 




B a c;! / kl :!. s n j a t c li e d u n i t ( <b ) 






Bad free space map 


•~> 




F i e a 1 r e a d y e :< i s t s 


4 


5 


D i r" e c: t o y i s f u 1 ]. 


5 




D i s k i <h;- f u 1 1 


6 


...y 
/ 


!■■• ;i. 1 e n a m e a m b i g u o l.i s 


7 

• 




F~ile does not e^ist 


8 


9 


ki o r o a m f o r b u f t e y" 


9 


10 


E. n 'd o t f i 1 e e n c o l.i n t e r" e d 


1 0 


1 1 


F i 1 e i s not open 


1 1 


12 


1 1 ]. e g a 1 f i 1 e n u. m t:) e r 


12 


13 


File is locked 


13 


14 


Bad a i- g u ii e ri t 1 i t 


14 


15 


F i 1 e i s open 


1 b 



D i c t i o n a i ■ y t o o i.i i g 



*0 ( Error messages 
1 

2 U B e c) n 1 y in D e f i n :L t ions 

•^l- EI K e c: Li t i c:« n o r i 1 y 

^J 

6 G Q n cl i t i o n a 1 s n o t p a i r e d 

/ 

D e -f i n i t. i a n n o t. f • i n i s h e d 

9 

1 0 1 n J3 r o t e c: t. e d d i c t i e n a r- y 
1 1 

1 2 U s e a n 1 y w h e-? n 1 e a d i n g 

1 ••:[• 
.1. •-..« 

1 4 0 -f f c: LI. r r e n t s c r e n 
15 



Screen!! 179 

0 Declare VOCABULAF^Y 
1 

ui., 

/|. 

n::* 
.J 

6 

/ 

8 

■:::) 

1 0 
1 1 

12 
13 
14 
15 
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Atari is a trademark of Atari, inc.. a division oi Warner Communications. 



Software and Documer^tatlorii 
Copyright 1982 
5ar International 



r 



c 



Stephen Maguire 




Purchasers of this software and documentation package are 
authorized only to make backup or archival copies of the 
software, and only for personal use* Copying the accompanying 
documentation is prohibited. 

Copies of software for distribution may be made only as speci- 
fied in the accompanying documentation. 
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The following is a description of commands used in creating seemingly 
difficult video displays using players and missiles. Used alone or in combina- 
tion with the other available systems by Val par International, it is possible to 
obtain graphic displays which compare with those of the best arcade games. The 
use of players and missiles (also called ''player/missiles"') allows the beginner 
to create high quality moving video displays. 



Software and Documentation 
©Copyright 1982 
Valpar Soteroatfonal 
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VALPAR INTERNATIONAL 



Disclaimer of Warranty 
on Computer Programs 



All Valpar International computer programs are distributed 
on an ''as is'' basis without warranty of any kind. The total 
risk as to the quality and performance of such programs is with 
the purchaser. Should the programs prove defective following 
their purchase, the purchaser and not the manufacturer 5 distributor 
or retailer assumes the entire cost of all necessary servicina or 
repair. 

Valpar International shall have no liability or responsibility 
to a purchaser^ customer, or any other person or entity with 
respect to any liability^ loss^ or damage caused directly or 
indirectly by computer programs sold by Valpar International, 
This disclaimer includes but is not limited to any interruption 
of service, loss of business or anticipatory profits or conse- 
quential damages resulting from the use or operation of such 
computer programs. 

Defective media (diskettes) will be replaced if diskette(s) 
is returned to Valpar International within 30 days of date of sale 
to use r » 

Defective media (diskettes) which is returned after the 30 day 
sale date will be replaced upon the receipt by Valpar of a $12,00 
Replacement Fee« 
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PLAYER/MISSILE GRAPHICS PACKAGE 



PLAYER/MISSILE GRAPHICS 

a) STROLLING THROUGH PLAYER/MISSILE GRAPHICS ... 1 

b) PLAYER/MISSILE GLOSSARY 

1) ENABLING PLAYER/MISSILE GRAPHICS .......... 6 

2) CREATING PLAYERS AND MISSILES , 10 

3) MOVING/PLACING PLAYERS AND MISSILES ........ 12 

4) SETTING PLAYER/MISSILE BOUNDARIES .......... 14 

5) COLLISIONS BETWEEN PLAYERS AND MISSILES ....... 16 



CHARACTER EDITOR 

User^s manual for the character set editor. 



SOUND EDITOR 

Descri ption of the audio-palette sound edi tor. 
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As knowledge of the internal workings of pi ayer/mi ssile graphics is not 
necessary to use this val FORTH package effectively^ the internal workings are 
not explained in this manual. However, for the serious programmer trying to 
optimize his/her program in every way, an understanding of these internal 
workings could at times improve code efficiency and/or speed of execution. 
For a complete explanation of player/missile graphics at the nut-and-bolt level , 
see the series of articles by Dave and Sandy Small in Creative Computing. 
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STROLLING THROUGH PLAYER/MISSILE GRAPHICS 

One of the biggest differences between the Atari graphic capabilities and 
those of most other computers is the Atari's ability to use players and missiles. 
This discussion will not explain the Internal workings of player/missile graphics 
on the Atari; rather, it will explain how to use the basic" commands in thi^ 
val FORTH package^ Before we proceed^ please load the player/missile graphic 
routines from the Player/Missile disk. The 'directory on screen 170 will show 
what screen to load. Also, if you have the val FORTH Editor/Utilities package, 
load in the high speed STICK conmand found in the Miscellaneous Utilities; 
otherwise^ load in the slower version on your Player/Missile disk. (Check the 
directory for its location). 

To start with, let's get a simple player up on the screen to experiment with 
First we must Initialize the player/missile graphic system and design the player 
image. This Is simple: 

( Initialize for single 
resolution players ) 

( Change to binary for ease ) 

( Give the player image a name } 



( A large plus sign } 



( Now back into base 10 ) 

( Clear player/missile memory ) 

( Turn on the players ) 

CROSS 8 180 50 0 BLDPLY ( Build a player ) 

You should now see the cross in the upper right-hand corner of the video screen. 
Now let's take a look at this and see how it work$> 

First, players are initialized using the PMINIT command. Players can be in 
either a single or double resolution mode (double res players are twice as tall). 
''1 PMINIT^' 1s used for single res pi avers. If v^e had wanted double res players, 
we would have used ^^2 PMINIT\ 

Next 3 the player image is created. Since it is much easier to make player- 
images as Ts and O's^ we use binary (base two) number entry. Before we design 
the image, it must be given a name. The LABEL command does this nicely for us. 



I PMINIT 



2 BASE ! 




LABEL CROSS 


00011000 


G 5 


000 11 000 




00011000 


C s 


11111111 


c , 


11111111 


C 5 


00011000 


C 5 


00011000 


r 






00011000 


c 


DECIMAL 
PMCLR 




ON PLAYERS 
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This image is named CROSS. All that need be done now is to draw the picture. 
Notice how easy it is to see the image when using base two. Of course, we could 
have stayed in base 10 and still designed the image, but this is usually more 
difficult. The word after each number simply tells FORTH to store that number 
in the dictionary. Once the picture is designed, we return to decimal for ease. 

Both the PMCLR and ON PLAYERS commands are fairly self-descriptive: PMCLR 
erases all players and missiles so that no random trash appears when the PLAYERS 
are turned ON. Next^ the BLDPLY (build player) command takes the image named 
CROSS which is 8 bytes tall and assigns it to player 0 at horizontal location 180 
and vertical location 50 on the display. Of course^ we could have built player 
1, 2, or 3 instead. 

The cross should be black. Suppose v^e wanted a blue or green cross instead. 
This can be done using the PMCOL (player/missile color) command. Try this: 

0 9 8 PMCOL ( player hue liim PMCOL ) 

The cross should now appear blue. This command assigns a BLUE (9) hue with a 
luminance of 8 to player 0, If the color commands are loaded from the val FORTH 
d i s k 5 



0 BLUE 8 PMCOl 



could have been used with the same results.. Try changing the color of the player 
to GREEN (12) or PINK (4)* Note that the default colors for players 2' and 3 make 
them invisible: Their colors should be set immediately upon being built. 

Now that we have a player on the screen « let's move it around. We use the 
PLYMV (player move) command for this. PLYMV needs to know which player to move 
(there could be as many as five), how far to move it in the horizontal direction, 
and how far to move it in the vertical direction. Try this: 

1 1 0 PLYMV ( horz vert player PLYMV ) 

This moves player 0 down 1 line and right one horizontal position, thus giving the 
effect of a diagonal move towards the lower right-hand corner. Try these as well: 



1 0 0 PLYMV ( move right one position ) 

5 0 0 PLYMV ( move left five positions ) 

0 20 0 PLYMV ( move down 20 lines ) 

-15 0 PLYMV ( move up 15' lines ) 

2 0 PLYMV ( move left five^ and down two ) 



r 



That^s all there is to moving a player. Positive horizontal offsets move the 
player rights and negative values move ^the player left. Likewise^ positive 
vertical offsets move the player down while negative ones move the player up. 
The following program can be typed in and you will have a joystick controlled 
player: 
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( STICK leaves tv^o offsets ) 
( for PLYMV to use. ) 



JOY <ret> 

Hove the player with stick 0^ the left-most stick port. Press any console button 
to exit the program. 

Currently^ if the player is moved off any edge, it ''wraps'' to the opposite 
side» In other words, v^e have an ^^unbound'^ player. This is rarely desirable. 
Normally 5 we want to restrict player movement to certain boundaries. The PLYMV 
command has a built in boundary check routine specifically for this reason. 
Right now^ new boundaries are set so wrapping occurs. Let^s set some boundaries: 

60 150 50 200 0 PLYBMD 

This sets the boundaries of player zero to 75 on the left, 150 on the rights 50 
on the top, and 200 on the bottom. Type JOY again to verify that you can no 
longer move freely about the display. Try different boundary settings and 
experiment to get the feel of the command. Boundary checking can be disabled 
for any or all of the edges. Setting the left or upper boundary to 0 will 
disable the check on that edges likewise, 255 in either the right or lower 
boundary will do the same. 

Let^s build another player in the lower rights-hand corner of the screen. 
This times instead of designing the player ourself^ let^s borrow the image 
from the standard Atari character set stored in ROM. The image of the digit 
zero starts at address 57472, The other numbers follow zero. Try this: 

57472 16 160 150 1 BLDPLY 

You should now see the numbers 0 and 1 on your screen. This command builds 
player 1 with the image at address 57472 that is 16 bytes tall and puts it at 
horizontal position 160 and vertical position 150. Give this player a color 
if you want. 

Until now^ we have been using normal size players. It is possible to make 
the tv/o players on the display different widths using the PLYWID command» 
PLYWID expects a width specification of 0 or 2 (normal )s 1 (double), or 3 
(quadruple). Its command form is: 

width player PLYWID 

ThuSy 

3 1 PLYWID 

should make player one four times its original size. The same can be done with 
player zero: 

3 0 PLYWID 



: JOY 

BEGIN 
0 STICK 
0 PLYMV 
7TERMINAL 

UNTIL ; 
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Type JOY again and notice that the width has no effect on movement whatsoever. 
Also notice that player one is unaffected by movement of player zero. 

Now that v-^e have two players on the screen ^ let^s interface both of them 
to the joystick. Type in the following program: 



BEGIN 

0 STICK ( Record stick movement } 

2DUP (Make a- copy ) 

0 PLYMV ( Move player 0 ) 

SWAP ( Rotate stick 90 degrees ) 

1 PLYMV ( Move player 1 ) 
7TERMINAL 

UNTIL ; 

J0Y2 <ret> 



Notice that when you push the stick up, player zero goes up^ but player one 

moves left. The SWAP instruction exchanges the vertical and horizontal offsets 

from STICK before moving player one. If we were to take the SWAP out, the 
players would move identically » 

In many appl i cations ^ it is necessary to know when a player has hit another 
player or some background image. Fortunately^ the Atari computer automatically 
makes this information available. An entire collection of valFORTH mrds allows 
checking of all collisions possible. The most general word is ?COL which simply 
returns a true flag if anvthinq has hit anything else. Here is an example: 



BUMP 

BEGIN 
HITCLR 
0 STICK 
0 PLYMV 
?COL 
IF 



ENDIF 
?TERMINAL 



w <ret> 



J3 



Move the player around and watch the results. Every time you hit any letters 
or player one, the word ''oopsP' should be printed out. This program is quite 
simple. Firsts the HITCLR command is issued which erases any old collision 
information. If this command were omitted^ the first time a collision occurred, 
''oops!'' would be continuously printed out. Next the joystick is read and the 
player moved. If the player touches anything when moved, the collision 
registers are set. ?COL reads these registers and leaves a true flag if the 
player has hit something, and the IF statement will then print out "oops!'^ 
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Type JOY again and notice that the width has no effect on movement whatsoever 
so notice that player one is unaffected by movernent of player zero. 



that we have two players on the screen, let's interface both of them 
to the joystick. Type in the following program: 

: J0Y2 
BEGIN 

0 STICK ( Record stick movement ) 

2DUP ( Make a copy ) 

0 PLYMV { Move player 0 ) 

SWAP { Rotate stick 90 degrees ) 

1 PLYMV ( Move player 1 ) 
7TERMINAL 

UNTIL ; 

J0Y2 <ret> 

Notice that when you push the stick up, player zero goes up, but player one 
moves left. The SWAP instruction exchanges the vertical and horizontal offsets 
from STICK before moving player one. If we were to take the SWAP out, the 
players would move identically. 



many applications, it is necessary to know when a player has hit another 
player or some background image. Fortunately, the Atari computer automatically 
makes this information availab1e« An entire collection of valFORTH words allows 
checking of all collisions possible. The most general word is ?COL which simply 
returns a true flag if anything has hit anything else. Here is an example: 

: BUMP 
BEGIN 

HITCLR 
0 STICK 
0 PLYMV 



IF 

CR oops!^' 
ENDIF 
?TERMINAL 

JNTIL ; 



BUMP <ret> 



Move the player around and watch the results. Every time you hit any letters 
or player one, the word '^oops!'' should be printed out. This program is quite 
simple. First, the HITCLR command is issued which erases any old collision 
information. If this command were omitted, the first time a collision occurred 
^^oops!^' would be continuously printed out. Next the joystick is read and the 
player moved. If the player touches anything when moved, the collision 
registers are set. ?COL reads these registers and leaves a true flag if the 
player has hit something, and the IF statement wi 1 1 then print out ''oops!\ 
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Using other commands found in the glossary, we can tell specifically what 
the player has hit. For example^ the ?PXPF command checks to see if a specific 
player has hit a playfield^ and if so, it returns information indicating which 
playf ield« 

Although this discussion was limited to using players, the routines for 
missiles function similarly and can be found in the following glossary. Two 
player/missile example programs can be found on your Player/Missile disk« 
These demonstrate how short player/missile routines can be. 
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PLAYER/MISSILE GLOSSARY 



Enabling Player-Missile Graphics 



To make use of players and missiles ^ the video processor must be activated. 
Players can be several sizes, they can have different overlap priority schemes, 
and they can have different colors. The following collection of ''words makes 
this setup task quite simple. Note: Players and missiles are numbered 0 throug 
3* The fifth player is numbered as four. 



(PMINI 



( 



res - 



) 



The (PMINIT) command (or PMINIT below) must be used to initialize 
the player missile routines before any other player missile command may 
be used. (PMINIT) expects both the address of player/missile memory 
and a 1 or a 2 indicating whether single or double resolution is desired 



NOTE: The difference betv/een single and 
graphically below: 



double resolution is shown 



Player as defined 
in memorv: 



single res 
on screen: 



double res 
on screen: 



00011000 
00111100 
01111110 
00111100 



5 



res 



CVC- tijc 



The PMINIT command functions identically to the (PMINIT) command 
above, except that no address need be given, PMINIT calculates an address 
based on the current graphic mode. It uses the first unused 2K block of 
memory below the highest free memory {i.e.^ below the display list). 
This should only be used while first learning the system, after that^ 
(PMINIT) should be used to optimize memory utilization. Note that the 
variable PMBAS- contains the calculated address upon return. 



MB AS 



( 



) 



A variable containing the address of player/missile memory. This 
value must lie on a 2K boundary if single resolution players are used 
and on a IK boundary if double resolution players are used. This is set 
using the (PMINIT) command and is automatically set by the PMINIT command 
described above. This value should never be set directive but can be 
read at any time. 
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PLAYERS 



( ON/OFF ) 



If the flag found on the top of the stack equates to TRUE or ON, 
then the player/missiles are activated. This does not clear out player 
missile memory; there fore 3 the PMCLR command described belov/ is usually 
used prior to enabling the players and missiles to ensure that no random 
trash appears on the screen » 

If the flag found on the top of the stack equates to FALSE or OFF? 
then the player/missile graphic mode is de-activated. Turning players off 
does not clear player-missile memory; therefore, a subsequent ON PLAYERS 
command would redisplay any previously defined players and missiles. 
If players are already disabled^ the command is ignored. 



5THPLY 



( flag 



rA^ 



In many applications it is desirable to combine the four missiles and 
simulate a fifth player^ thus giving five players (numbered 0-4), and no 
missiles. If the flag on the stack is non-zero, then the fifth player mode 
will be initiated; otherwise, the missile mode will be re~acti vated. 

Normally, missiles take on the color of their corresponding players; 
hov^ever^ v^hen a fifth player is asked for, all missiles take on the common 
color of playfield #3. In addition, it also allows the fifth player to be 
treated exactly as any other player v/ould be treated* Bear in mind that 
although it is called a '^fifth'' player, its reference number is four (4)* 
The fifth player is built'' with missile zero on the rights and missile 
three on the left: 



m3im2 mlimO| - fifth player 

(Note: For convenience, the words ON and OFF have been defined to allow 
niceties such 4s: 

ON 5THPLY 
OFF 5THPLY 

These two words are recognized by all words that require an ON/OFF type 
Indication.) 



PLYCLR 



i 



Few applications use all available players. To keep these unused 
players from displaying trashy they can be cleared of all data by 
using the PLYCLR command. The PLYCLR command expects the player number 
on the top of the stack and fills the specified player with zeroes ^ 
This command can be used to '^turn off'' players which are no longer 
needed. 



MSLCLR 



ml^ 



wu «ac J 



The MSLCLR command is very much like the PLYCLR command, described above, 
except that it clears the specified missile. In addition, this can be 
used when the fifth player is activated to erase parts of the fifth player 
for special effects. 
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PMCLR ( ) 

This comiiand clears all players and all missiles. This is generally 
used just prior to activating the player-missile graphic mode to^ensure 
that no random trash is placed 'on the video screen, PMCLR expects no 
values on the stacks nor does it leave any, 

( F ) 

The MCPLY (Multi-Color Player) command expects one value on the top 
of the stack. If this value is 0 or OFF, then the multi-color player mode 
is disabled. If this value is 1 or ON, this command instructs the^ video 
processor to logically ^^or^' the bits of the colors of player zero with 
player one, and also of player two with player three. In other words, 
when players 0 and 1 overlap (or players 2 and 3), a third color (determined 
by the colors of the overlapping players) will be assigned to the overlapped 
region rather than assigning one of the players a higher priority. Since 
players must be one color, this allows for multi-colored players. For 
example: 

Player 0 Player 1 MCPlayer 

Pink color Blue color Pink/blue 

4 ) ( 8 ) (4 



~ green ) 

BBBB BBBB 

BBBBBBBB BBBBBBBB 

pppppppp pppppppp 

PPPPPPPP BB BB PGGPPGGP 

pppppppp pppppppp 

PP PP PP pp 

pppp PPPP 

E: The lums of the two players are also OR^d, 



PRIOR 



The PRIOR command expects one value on the top of the stack. This 
value must be 8, 4^ 2, or 1, otherwise unpredictable video displays may 
occur. PRIOR instructs the video processor as to what has higher priority 
for a video location on the screen. For example, it will determine whether 
a plane (a pi ayer) will pass in front of a building (a pi ay field), or 
whether the plane will pass behind the building. Objects with higher 
priorities will appear to pass in front of those with lower priorities. 
The following table shows the available priority settings: 



XXI-8 



Player Missile Graphics LO 



1 1 o 


! I 't 


n-9 




r r u 


PFO 
r r u 


■ 

PI 0 


PI n 


PFl 


PFl 


PI 1 


PI 1 


PI n 


PF9 


PFO 
r r u 


PI 9 


PLl 


PF3* 


PFl 


P L* 3 


PL2 


PLO 


PF2 


PFO 


PL3 


PLl 


PF3* 


PFl 


PF2 




PL2 


PF2 


PF3* 


PL 3 


PL 3 


PF3* 


BAK 


BAK 


BAK 


BAK 



* PF3 and PL4 share the same priority 

Objects higher on the list v^ill appear to pass in front of objects 
lower on the list. 
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. CREATING PLAYERS AND MISSILES 

Once the player/missile graphics system has been activated and the 
priorities set^ all that need be done is to create the players themselves. 
Normally 5 this would be quite difficult to do; however , using the commands and 
designing techniques described below^ this task is made very simple. 
There are really only three things to do in the creation of a player: setting 
the width size^ setting the color, and creating the picture. 



PLYWID ( width pl^ 

The PLYWID command sets the specified player to the desired width 
Players are numbered 0^ 2, 3 ^ or in the case of the fifth player, 4 
Legal widths are: 

image: 10111101 

0 p normal width: • •••• • 

1 - double width: •••••••• 

2 ™ normal width: 

3 = quad, width: 



Any other value may cause strange results » 

MSLWID ( size ml# ) 

The MSLWID command is identical to the PLYWID command described above 
except that it is used to set the size of the missiles« The same size 
values apply also. The MSLWID command should only be used when in the 
missile mode (i«e,s with the fifth player deactivated). 

PMCOL ( pl# hue lum - ) 

To set the color (hue and lum) of a player, the PMCOL (Player- 
Missile-Color) command is used. It sets the specified player to the hue 
and lumina desired. Note that there is no corresponding command to set 
colors of missiles as missiles take on the colors of their respective 
ayers. To set the color of the 5th player^ *'pl#'* should be 4, If the 
color words on the val FORTH LI disk are loaded ^ they can be used to set 
player colors: 

0 BLUE 8 PMCOL 
This sets player #0 to a medium blue color. 
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BLDPLY ( addr Ten horz vert p1# ) 

The BLDPLY command is probably the most useful of all the commands in 
this graphic package. It takes an easily predefined picture that resides 
in memory at address '^addr'' whose length is '*len'' and converts it to the 
specified player It then positions the player at the coordinates 

(horz 3 vert). The player is then ready to be moved about the screen using 
the PLYMV comeiand described below* 

As an example, a player in the form of an arrow pointing upward will 
be created, assuming that priorities and such have already been taken cay^e 
of. Practice has proven that the following method is easiest for creating 
players : 

2 BASE I ( put into binary mode ) 

LABEL PICTURE ( the image is named PICTURE ) 

C % 



00111100 c. 
01111110 c. 
11011011 c, 
00011000 c, 
00011000 c. 
00011000 c. 
00011000 c, 
DECIMAL 

1 PMINIT ( initialize for single resolution ) 

PICTURE 8 80 40 0 BLDPLY 

Takes the Image at location PICTURE which 1s 8 bytes long, and builds 
player #0 at location (80,40), 

BLDMSL ( addr len horz vert ml# ) 

The BLDPLY command described above does just about everything necessary 
to create a high-resolution player. The BLDMSL command functions identically 
to the BLDPLY command except that it is used for setting up missiles (which 
are in effect just skinny players). The method for creating players can be 
used for creating missiles as well. Note that if the fifth player mode is 
activated, the BLDPLY command must be used to create the player. 

Building missiles takes a bit more care than building players. Players 
occupy separate memory, while the four missiles share the same memory. 
Each missile is two bits wide; all four together are exactly a byte wide. 
Missile memory is shared with the two lov^est bits devoted to missile zero, 
and the two highest bits devoted to missile three: 

m3 I m3 | m2 j m2 | ml | ml | mO | mO 

All players with the same shape can use the same image without any problem 
since they all are a full byte wide. Missiles , however, cannot use the 
same shape since their images must be ORed into missile memory. This means 
that the missile images must be in the proper bit columns. For example, 
the same image for separate missiles could be: 

11000000 00110000 00001100 00000011 
1 1000000 001 10000 00001 1 00 0000001 1 
1 1000000 001 10000 00001 100 0000001 1 

msl#3 msl#2 msl#l msl#0 
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PUTTING PLAYERS AND MISSILES IN THEIR PLACE 

Generally 5 once a player or missile has been created and put to the video 
screen, it is moved around. This can be accomplished very easily with the next 
set of words. Interfacing a movable player with the joystick can improve just 
about any program which requires input. As a result^ 1t usually gives the 
program a more professional appearance « 

PLYLOC ( pl.# horz vert 

The PLYLOC command (PLaYer LOCation) returns the vertical and 
horizontal positions of the specified player. This is normally used 
when a joystick/button setup is being utilized 1.e«, when a joystick 
is moving a player and the button 1s used to pinpoint where the player 
is. A program which draws lines betv^een two dots could use this. The 
joystick Is used to move the player to the desired spot on the screen. 
Pressing the button tells the program that a selected spot has been made. 
Once a second spot has been selected^ the program then draws a line 
between them. 



MSLLOC ( ml# horz vert ) 

The MSLLOC command performs the same function as the PLYLOC command 
described above except that it is used to find locations of missiles 
instead of players. Note that using MSLLOC on a fifth player gives 
meaningless results, 

( horz vert plfl ) 

The PLaYer MoVe command moves the specified player the direction 
specified by ^^vert^' and ''horz'^ If ''vert'' or ''horz'' is negative^ the 
player is moved up or left respectively, otherwise it Is moved down or 
right unless they happen to be zero in which case nothing happens. The 
following examples clarify this: 

0-5 0 PLYMV ( Move player 0 up 5 lines ) 
-1 -1 3 PLYMV ( Move player 3 left and up one line ) 
3-1 2 PLYMV . ( Move player 2 up one dot and right 3 ) 

( horz vert ml# ) 

The MSLMV 1s Identical in function as the PLYMV coiiinand described 
above except that it is used to move missiles about the video screen, 

PLYPUT ( horz vert pl# — ) 

The PLYPUT command positions player ''pl#'' to the location (horz^vert) 
on the video screen. 
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PLYCHG { addr len pl# ) 

Oftentimes it is necessary to change the image of a player after it 
has been built. The PLYCHG command allows this to be easily done. The 
PLYCHG command takes the image with length ''len'' at address *'addr'^ and 
assigns it to player ''pl#'\ Note that if the new image is shorter than 
the previous one, part of the previous image will remain. This can be 
overcome by executing a PLYCLR command prior to PLYCHG. 

PLYSEL ( addr # pl# ) 

The PLYSEL command is used to select image out of a table of 
images of the same length and assigns that image to the specified player. 
PLYSEL is typically used to animate players. An example usage of this can 
be found in Player/Missile Example #2 found in the directory of the disk. 



XX I 13 



Player Missile Graphics 1.0 



PLAYER/MISSILE BOUNDARIES 



It IS often desirable to put 1 Imitations on the movements of players 
and missiles. Boundaries can be set up for each player and missile independently 
and upon each move command, they will remain within those boundaries. Additional ly^ 
a boundary status byte for each player Is available for scrutiny at any time. 
This section explains how this Is used, 

PLYBND ( left right top bottom pl# ) 

In most applications, the movements of players are kept within certain 
boundaries. The PLYBND command frees the user from having to worry about 
boundary cjiecking* This command expects the player number and all four 
boundaries. Whenever a PLYMV is then used^ the player is always kept 
within the set boundaries. Also^ upon each move a boundary status byte 
is left in the c-array PLYSTT (see ?PLYSTT below). The edge boundaries of 
the screen are: 

32 for single, 16 for double 



48 for both 
resol utions 



207 for both 
resolutions 



223 for single. 111 for double 

Note that in special cases the boundary checker will fail. If the 
left boundary is 0 and the player is at the boundary, any move left will 
not be checked as expected. For example ^ if it were moved left by one 
position the new horizontal position would be -1 or FFFF in hex. 

Since only 8 bit unsigned comparisons are made^ the horizontal position 
appears to be 255 (FF hex). Post calculating boundary checking turns 
out to be more useful because it allows any or all edges to be unbounded. 
If an unbounded player is desired, use this: 

0 255 0 255 pl# PLYBND 

For an example of PLYBND, see the example program found in the directory 
on screen 170 of your disk. 

MSLBND ( left right top bottom ml# ) 

The MSLBND command is the same as the PLYBND command above , except 
that it is used for missiles. Upon each move a boundary status byte is 
left in the array MSLSTT. See ?MSLSTT below. 
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?BND ( n ) 

This command leaves the boundary check status of the last PLYMV or 
MSLHV performed. The value has the following form: 





1 






0 


r 1 

t 


t ! b 



15 14 4 3 2 1 0 

Only the lov^er four bits are of use* Each bit represents a different 
edge. If the bit is set, then the player or missile has attempted to move 
beyond that boundary. Note that only two of the four bits can be set at 
any time. 

Note: DECIMAL 

?BND 3 AND 

IF hi t- vertical -boundary ENDIF 
?BND 12 AND 

IF hit-horizontal -boundary ENDIF 



7PLYSTT ( pl# val ) 

Given a player number, returns the boundary check byte of that player. 

This byte is the status byte for the most recent PLYMV of that player. 

See ?BND above for the description of the status byte. 

?MSLSTT ( ml# val ) 

Given a missile number^ returns the boundary check byte of that missil 

This byte is the status byte for the most recent MSLMV of that missile. 

See ?BND above for the description of the status byte* 
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CHECKING FOR INTERACTION BETWEEN PLAYERS 



All the commands given so far allow the creation of any player or missile 
desired. But once that player is on the screen and moving around, it is often 
necessary to know when two or more objects (players^ missiles, and playfields) 
touch or ^'crash*' into each other. This remaining collection of commands allows 
checking of all possible ''hit'' combinations, 

?COL { f ) 

The ?COL command is a very general collision detector. It does nothing 

more than indicate whether two or more objects have ^'crashed'' it does not 

give any indication of what has collided. It leaves a 1 on the stack if a 
collision has taken place; otherwise it leaves a zero. 

?MXPF ( ml# — n ) 

The ?MXPF command is a much more specific collision detection command. 
It stands for ^^collision of Missile #X with any PlayField^^ It is used 
to check if a specific missile has hit any playfield. It returns a zero 
if no collision has taken place^ and leaves an 8^ 4, 2, 1, or combinations 
of these ^(e.g,, 12 - 8-^4} if a collision has occurred. Each of these 
four basic values represents a specific playfield: 

3 ?MXPF ( Has missile #3 hit any playfields? ) 



TOS 


binary 


meaning of val 


0 


0000 


no collisions 


1 


0001 


with pf#0 


2 


0010 


with pf#l 


3 


0011 


with pf#0, 1 


4 


0100 


with pf#2 


5 


0101 


with pf#2,0 


6 


0110 


with pf#2,l 


/ 


0111 


with pf#2,l,0 


8 


1000 


with pf#3 


9 


1001 


with pf#3,0 


10 


1010 


with pflSjl 




1011 


with pf#3a,0 




1100 


with pf#35 2 


1 3 


1101 


with pf#3,2,0 


14 


1110 


with pf#3,2,l 


15 


nil 


with pf#3,2,l,0 



To test for a collision with one speci f ic playfield, use one of the 
following: 

1 AND { Leaves 1 if collision with pf#0, else 0 ) 

2 AND ( " 1 " " pf#l, " 0 ) 
4 AND { ^' 1 " " pf#2, " 0 ) 
8 AND { " 1 " pf#3, " 0 ) 
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?PXPF 



?MXPL 



The ?PXPF command (?collision of Player #X with any PlayFiel 
behaves in exactly the same manner as the ?MXPF cormiand above except that 
it tests for collisions with players and playfields Instead of missiles 
and playfields. 

( rr!l# n ) 



The ?MXPL command (?collision of Missile #X with any Player) behav( 
in exactly the same manner as the ?MXPF command above except that it 
tests for collisions between missiles and players. Note that it is 
impossible for a missile to collide with a fifth player since it would be, 
in effect, colliding with itself. 

?PXPL ( pl# n ) 

The ?PXPL command (?coll1sion of Player #X with any other players) 
behaves in exactly the same manner as the ?MXPF command above except that 
it tests for collisions between players. Note that it is imipossible for 
a player to collide with itself. 



HITCLR 



) 



The HITCLR command clears all collision registers. In other words, 
it sets the collision monitor to a state which indicates that no collisions 
have occurred. 
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THE CHARACTER SET EDITOR 



Character Sets 



Whenever the computer has to display a character on the video screen, it 
must refer to a table which holds the shape definition for that character. 
By changing this table, new character sets can be for^med. 

The shape of a single character in the table (or character set) is made 
up of 8 bytes of data. A character is one byte wide and 8 bytes tall forming 
an 8 by 8 bit matrix* If a bit in this matrix is set (1), then a dot will 
appear on the screen* If a bit is reset (0), nothing is displayed* For 
example 9 the letter I could be defined as: 



$00 - 0 

StiVSSS 01111110 $7E ~ 126 

»• 00011000 $18 - 24 

00011000 $18 - 24 

00011000 $18 - 24 

- 24 



01111110 $7E - 126 

00000000 $00 - 



Thus, the sequence 0/ 126, 243 24, 24^ 24, 126, 0, represents the letter L 
The entire alphabet is constructed in this fashion. By selectively setting 
the bit pattern, custom made characters can be formed. This can find many ^ 
uses. A British character set can be made by changing the one character ''f 
to the British monetary symbol. Likewise, a Japanese character set could be 
made by replacing the lowercase characters with Katakana letters. 

Another use would be to design special symbol sets. For example , an 
entire set could be devoted to special mathematical symbols such as plus-minus 
signSs square-root signs integration signs, or vector signs. (Although this 
would be of little use in normal operation where character sets cannot be mixed 
on the same 11 ne^ using the high resolution text output routines in the 
Editor/Utilities package. It becomes easy to mix character sets in this 
fashion.) Assuming the character sets were defined^ it would be possible to 
have a Japanese quotation (in kana of course) embedded within the text of a 
mathematical explanation of some kind all on the same line! 

A final use for custom character sets is for ^^map~maki ng J' Characters 
can be designed so that they can be pieced togehter to form a picture. An 
excellent example of this can be found in Cris Crawford's Eastern Front game 
available through the Atari Program Exchange, When done properly ^ the final 
''puzzle'^ will appear as though it is a complicated high resolution picture. , 

Now, on to the editor... 
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The Editor 



The following description explains how to use the character editor found on 
the Player/Missile disk. This editor allows a character set to be designed and 
then saved on disk for later modification or use. A copy of the standard 
character has already been saved and can be located through the directory on 
screen 170. 



After loading the character editor, it is executed by typing: 

CHAR-EDIT <ret> 

The screen has an 8 by 8 grid in the upper-lefthand corner. On the right side 
there is a command list, and at the bottom^ a section is reserved to display 
the current character set. 



The Commands: 

I) The joystick 

A joystick in port 0 (the leftmost port) is used to move the 
character cursor (the solid circle) within the 8 by 8 grid. The 
cursor indicates where the next cliange to the current character 
wi 1 1 be made. 

II ) The button 

When pressed, the joystick button will toggle the bit under the 
character cursor in the 8 by 8 grid. If the bit is set (on), it 
will be reset « If the bit is reset (off), it will be set. The 
character will be updated in the character set found at the bottom 
of the screen. 

Ill) ''V command 

By pressing the ''V the current character is cleared in both 
the grid and in the character set at the bottom of the display» 
There is no verify prompt for this command. 

IV) ''2'' command 

By pressing the ''2'' key the current character and character 
set are cleared. User verification is required before any action 
is taken. 

V) ''3" coiiTO nd 

By pressing the ''3'' key the current character is saved to disk. 
User verification is required with a yes/no response. If a yes 
response is given, a screen number is asked for and the current 
character set is saved on the specified screen. The current 
character is not destroyed upon a save. 

VI) ''4" command 

By pressing the ''4'' key a character set is loading from disk, 
destroying the current character set. User verification is required 
with a yes/no response. If a yes response is given, a screen number 
is asked for and a character set loaded from the specified screen. 
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VII) ''<<r-'' and ^^^"~>'' commands 

These tv^o arrow keys move the character pointer th?^ough the 
character set to allow modification of any character in the current 

S 'fil » - — 

VII I) Console key 

Pressing any console key terminates the edit session and returns 
control to the FORTH system. The current character set 1s lost 
unless it is saved to disk prior to ending the session. 



Loading Character Sets 

The following three v/ords allow easy use of custom character sets. 



CHLOAD ( addr scr# cnt ) 

The CHLOAD command takes the first ''cnt'' characters on screen ''serf' 
and stores them consecutively starting at address ''addr^'. Each screen 
(in half~K mode) will only hold 64 character defin1tions« If "cnf' is 
greater than 64 ^ CHLOAD will continue loading from the next screen. 
Many character sets could be loaded at one time by giving a very large 
''cnt'' value. Besides beina able to load a full sets the CHLOAD command 
allows the building of a new set from several other sets. 

Note that If a 20 character/line mode is being used^ ''addr'' should 
lie on a half-K boundary (only upper 7 bits significant). If a 40 
character/line mode Is being used^ ''addr" should lie on an IK boundary 
(only upper 6 bits significant). Also note that PAD is modified by 
CHLOAD, 



SPLCHR 



( addr 



The SPLCHR commands activates the character set at the address 
specified. 

NMLCHR . ( 

The NMLCHR command re-activates the normal character set. 
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AUDIO-PALETTE A SOUND EDITOR 



Audio-Palette 1s a sound editor which generates all possible time-in 
dependent sounds that the Atari 400/800 microcomputer can produce. Each of 
the four channels are Interfaced to one of the four joystick ports « The joy- 
sticks allow the setting of the pitch (horizontal) the distortion (vertical) 
of their corresponding channel. When the joystick button is pushed, the 
sound is made. To get a better idea of how this works, load the editor 
(see screen 170) and type: 

AUDED <ret> 

The screen should clear and a table of values should appear at the bottom of 
the display. In the upper lefthand corner of the screen, there should be four 
numerals (players) overlayed (one for each channel). Each of these players 
can be moved around the display by using a joystick in the appropriate port. 

As a player is moved vertically, the distortion changes. As a player is 
moved horizontally, the pitch changes. By pressing the button^ a sound will 
be made according to the current frequency (pitch), distortion, volume^ and 
audio control settings. To increase the volume^ the up-arrow is used. Any 
time the up-arrov^ is pressed., all channels whose corresponding joystick 
buttons are pressed will have their volumes increased. Likewise, the down- 
arrow will decrease the volumes. 

Each bit of the audio control value performs some function in the 
sound generator. The bits are numbered 0 to 7. Pressing the keys 0 to 7 
will toggle the corresponding bits in the audio control register. For a 
description of these bit settings^ please refer to the explanation of SOUND 
in the val FORTH LI package. 
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STROLLING THROUGH THE-DISPLAY FORMATTER 



In Atari Basic there are many different graphic modes* Some of these are 
text m.odes, some are graphics modes, and some are mixed. These different 
graphic modes are based upon display lists. A display list is a list of display 
instructions which tell the video processor whether a particular portion of the 
screen is to be high resolution graphics or normal text. Any given section of 
the display can actually take on one of 18 different characteristics. 

Let's take a look at the display list for a graphic 0 display: (These 
values are in base 16) 



24 blank scan lines 



DM jump to BC40 



23 graphic 0 lines 



jump to BC20 



start of display memory 



Each opcode 70 instructs the video processor to display 8 blank scan 
lines. Opcode 2 produces one standard graphic 0 text line. Opcode 42 is a 
modified 2 instruction. In addition to creating a standard text line^ it 
also informs the video processor where the display memory is located (the 
address is found in the next tv^o bytes). At the end of the list there is a 
three byte jump instruction v^/hich transfers display list interpretation to the 
address specified in the next tv^o bytes of the list. Each of the graphic 
settings have a similar list. This valFORTH package allows you to design your 
own lists. Let's make one now. 

Look in the directory (screen 170) and load in the display formatter^ 
Most of the formatter V'^ords begin with DB (for display block)* To initialize 
the system type: 

DBINIT 

nLA 
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This initializes the system and puts it into the more useful hexadecimal mode. 
Graphic mode 8 is a high resolution graphic mode with a four line text window 
at the bottom of the display. Let's make a display with a four line text 
window at the top of the screen followed by the high resolution graphics plate. 
First, we need 24 blank scan lines at the top: 

70 DBM 
70 DBM 
70 DBM 

The DBM command stands for "Display-Block Make." It takes the opcode on top of 
the stack and tacks it onto the end of the display list currently being created. 
Additionally, it enters an address into the array DBLST which points to the 
first byte of memory used by that display block. There is a plural form of the 
DBM command: 

3 70 DBMS 

This adds 3 opcode 70's to the current display list. Now let's add the four 
line text window. Recall that a normal text line has an opcode of two : 

4 2 DBMS 

Note that the display memory jump described earlier is automatically inserted 
into the display list. Now we need to define the high resolution portion of 
the display.' A standard graphic 8 line has an opcode of $F (15 in decimal). 
Let's create 20 graphic 8 lines (20 in base 16 is 14). 

14 F DBMS 

This list is good enough for now. To verify that it has been entered properly, 
type : 

DMPLST 

You should get something like: 
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Note the automatic insertion of the display memory jump in block three. 
Display memory cannot cross a 4K memory boundary without a display memory jump. 
As each display block is added, a check is made to detect any 4K memory cross"^ 
mgs caused by the display block. If the block does cross ^ a display memory 
jump is automatically inserted into the list to account for it. 

Now that we have a display list^ let's enable it. There are several ways 
to activate a list* For now type: 

MIXED CIS 

This MIXED command enables the new display list and also re-directs output 
to the display memory specified by the list. This allows for interactive dis- 
play list creation. There should be a recognizably different display. Hold 
down the RETURN key and watch how the ^'ok" message is displayed as the cursor 
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moves down the screen. You should see ''ok'"s on the text lines 5 but in the 
high resolution lines^ it shoud look quite different. You can type in a high 
resolution mode because the Atari operating system does not know that the 
display list has been changed. To return to a normal display^ the GR. command 
is used: 

0 GR. 

Dump the display list again using the DMPLST command. Let's put some text 
lines in at block B. To do this type: 

B DBPTR 
10 2 DBMS 

The DBPTR command positions the display list pointer to the specified 
block. That block then becomes the end of the list. After that, we add 16 
(10 hex) graphic 0 lines. Dump the list again and verify that this is indeed 
what was accomplished. To view this new display, type: 

MIXED CIS 

Hold down the RETURN key again. Notice what happens as the cursor passes 
through the high resolution section and then back into the second text section. 
Type DMPLST again while in this mode and notice that everything works the same, 
the data is simply displayed differently. To get out, type ^'0 GR.'^ 

Besides adding display blocks onto the end of a display list, the display 
formatter allows display blocks to be inserted and deleted as well. Block two 
has an opcode 70 which produces 8 blank scan lines on the video screen* By 
deleting this block from the list, the entire display will shift upwards by 8 
lines. This is accomplished using the DBDEL command: 

2 DBDEL 

Dump the list and verify that the block has indeed been deleted. Enable 

the list using ''MIXED CLS'^ Note that the first text line appears much higher 

than usual on the video screen. While still in this display, execute: 

4 6 DBDELS 

This will delete the four display blocks starting at block six. In this 
case^ the four high resolution display lines are deleted* Type "MIXED CLS^' 
and watch the screen shrink slightly as the display blocks are extracted. 

Display blocks can be inserted using the DBIN command. When a DBIN 
command is executed , the specified opcode is inserted into the specified block. 
The opcode previously in that block and all opcodes following are pushed back 
by one block. As an example ^ we will insert opcode 70 (8 blank scan lines) 
at block five. This will do it: 

70 5 DBIN 
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''MIXED CLS'* will activate the new list. Press the RETURN key a few times 
and notice how the output routines seem to ignore the blank scan lines. The 
DBINS command is a plural form of the DBIN command. Let's insert a different 
opcode other than 2 or $F, Opcode 6 is a mode which displays colored characters 
which are much larger than normal. This will insert three opcode 6's at block 9 

3 6 9 DBINS 

Activate this new list in the normal way and experiment with it. The 
following section describes all of the available opcodes. Experiment with these 
as you read about them and you should have no problem understanding any of them. 

This brief explanation of display list formatting should show the power 
available to the programmer who wants to get that unique display. There are 
many more commands available for use. These are explained thoroughly in the 
glossary at the end of the next section. 
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DISPLAY LIST INSTRUCTIONS 



There are four basic display list instructions. Those that produce blank 
scan lines, the display list jump, the jump on vertical blank, and the display 
block instructions. This is a description of these four basic instructions. 



Blank Scan Lines 




This opcode produces n+1 blank scan lines of color BAK. No video 
memory is used by this instruction. 

If the I bit is set, a display list interrupt (DLI) will occur upon 
interpretation by Antic (the video processor). 

The 8 legal values are: 

$00-0 1 blank scan line (128 with I bit set) 

$10 - 16 2 blank scan lines (144) 

$20 ^32 3 blank scan lines (160) 

$30 =^ 48 4 blank scan lines (176) 

$40 ===64 5 blank scan lines (192) 

$50 ^ 80 6 blank scan lines (208) 

$60 - 96 7 blank scan lines (224) 

112 8 blank scan lines (240) 



Display List Jump 



Byte form: 




0 


0 


0 


1 i 



This command instructs Antic to search for the next display list 
instruction specified by the address contained in the next two bytes of 
the display list. The low byte of the address is found lower in memory. 
This command is used primarily to continue a display list across a IK 
memory boundary (Antic will not handle this properly). This is the only 
instruction not supported by the display formatter since its occurrence 
is rare. It is explained here for completeness sake and its use is 
absolutely forbidden. Future releases may have this implemented. 

If the I bit is set, a display list interrupt will occur upon 
interpretation by Antic. 

Legal form: 

$01 addr-low addr-hi Transfer display list 

interpretation to addr. 
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Jump On Vertical Blank 



Byte form: 




This three byte opcode instructs Antic to transfer display list 
interpretation to the address specified by the following two bytes (low 
byte of address first) and to pause until vertical blank occurs. Since 
display list processing halts, any remaining portion of the video display 
takes on the color of BAK. This command is not to be entered by the user. 
The display formatter automatically adds this to the end of the display 
list whenever it is moved or activated. 

If the I bit is sets a display list interrupt will occur upon inter- 
pretation by Antic. 

Legal form: 

$41 addr-low addr~hi Transfer display list 

interpretation to addr» (65) 



Display Block Opcodes 



Byte form: 




n ^ 2 to $F (15) n 



There are 14 display modes. Six are character modes, eight are 
graphic modes. Each of these modes varies greatly and will be discussed 
individually. But first, the four status bits J. V, and H, will be 
discussed as they function similarly for all display modes. 

If the I bit is set, a display list interrupt will occur upon 
interpretation by Antic« 

If set, the J bit instructs Antic to perform a display memory jump. 
Antic expects the next tv>fo bytes in the display list to point to the new 
display memory location. The first display block instruction should 
always have this bit set, Also^. Antic cannot properly retrieve data 
from display memory across 4K boundaries. Thus, if the display memory 
must cross a 4K boundary ^ a display memory jump must be used. Note that 
the display formatter automatically takes care of these two problems for 
the user. 

If set 5 the V bit informs Antic that the current display block 1$ 
to be vertically scrolled upward according to the value in VSCROL (address 
$0405). Note that vertical scrolling is accomplished only if two or more 
consecutive display blocks have this bit set. 
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If set J the H bit informs Antic that the current display block is 
to be horizontally scrolled right according to the value in HSCROL 
(address $D404), Note that for horizontally scrolled display blocks, 
extra bytes of memory are needed* The exact number of bytes varies for 
different screen (playfield) widths. Use the following calculation: 

ft extra - X / n 

where: X the number of characters/display block 
n ~ 4 for a narrow playfield 
- 5 for a standard playfield 

There are no extra bytes for the wide playfield setting. 

For example, a 40 character/line display block in the standard 
width would use a total of 40 + 40/5 or 48 characters. Note that only 
one of these extra bytes is actually used for the display* 
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he Character Modes 



There are 6 character modes (opcodes 2 thru 7). All character modes 
work in the same way, i,e., the values in display memory are indices to 
a large ^'n^' by 8 byte array. In some of these modes, the highest one or 
two bits are used to specify a color with only the remaining lower bits 
used for indexing. The following table gives information about each of 
the modes: 



Antic mode 


2 


3 


4 

, , , 




5 


r~ 

6 


, j 

7 

--~ 1 1 1 n 


Basic mode 


0 


MTM «»0 MB 


- 




1 


2 


# color ^ 


1.5 , 




5 


5 


5 


5 


Chars/1 ine 
narrow wid 






32 


32 


16 


16 


1 Chars/line 
normal wid 


40 


40 


40 


40 


20 


20 

~ 


Chars/1 ine 
wide screen 


48 


48 


48 


48 


24 


24 


Scan lines/ 
pi xel 


, — 

8 


— 

10 




8 


16 


8 


15 


Bits/pixel 


1 


1 


2 


2 


1 




1 


Color clocks 
per pixel 




.5 


1 


1 


1 


1 



Colors: 

mode 2: Takes the color of PF2 with the lum of PFl 

(Artif acting/bleed very noticeable) 
mode 3: Same as above 

mode 4: Two bits/pixel in character definitions 

00 - BAK 01 - PFO 10 = PFl 
11 - PF2 if bit 7 of index - 0, else PF3 

mode 5: Same as 4 above 

mode 6: Most significant two bits of index 

0 - PFO 1 - PFl etc. 

mode 7: Same as 6 above 
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The Graphic Modes 

There are 8 graphic modes. Unlike character modes, the values in 
display memory are not indices into an array of character definitions, 
but rather are the definitions themselves. Depending on the graphic mode, 
these values give different results. The following table gives various 
information about each mode. 



Antic mode 


B 


Q 

^„,...r^,-^^ ^^.^ 


A 

— — " — » — 


R 

u 


r 

u 


u 




.........jm 

r 


Basic mode 


3 


4 


5 


6 


HSv JVOtf 


7 




8 


# colors 


4 


2 


4 


2 


.v^ 

2 

i 

i 




4 


1.5 


bytes/line 
narrow wid 


8 


8 

— — 


16 


16 


1 16 




32 


— ^ 

i 


bytes/ line 


„ — — ^ — ^ 

10 


10 


20 


20 


20 


■*— * — ^ 

40 


40 


40 


1 bytes/l ine 
wide screen 


12 


12 


24 


24 


24 


48 


— — 

48 
j 


48 i 

s 


Pixels per 
normal wid 


40 


80 


80 


160 


— — 

160 


, ^ ] 

160 


160 


^ t 

320 


Scan lines/pixel 


8 


4 




! 


1 


2 


1 


1 


Bits/pixel 


2 


1 


2 


1 


1 


2 


2 


1 


Color clocks 
per pixel 


4 


2 


2 


1 


1 


1 


1 




.5 



Mode F values differ v^/hen in GTIA modes 



Colors : 

mode 8: Two bits/pixel, 4 pixels/byte 

00 - BAK 01 - PPG 10 - PFl 11 - PF2 
mode 9: One bit/pixel, 8 pixels/byte 

0 - BAK 1 - PFO 
mode A: Same as mode 8 above 
mode B: Same as mode 9 above 
mode C: Same as mode 9 above 
mode D: Same as mode 8 above 
mode E: Same as mode 8 above 
mode F: Take the color of PF2 and lum of PFl 

(if not in a GTIA mode) 
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GLOSSARY 



(DBINIT) ( dmeni dlist ) 

The (DBINIT) routine initializes the display formatter* It expects 
two addresses on the stack. The address on top of the stack is used as 
the target address for the display list. The address found second on the 
stack Is the target address for display memory » The display list is 
actually created in a c-array named DSPLST. Note that while building the 
lists no check is made to ensure that the display list does not cross a IK 
memory boundary. 



DBINIT 



4 jMOl MO^ wW j 



DBPTR 



Like the (DBINIT) command above, this initializes the display formatter 
But unlike (DBINIT) ^ this expects no arguments. Instead^ these values are 
calculated automatically. The display memory address is top of memory 
minus IFOO hex. This is enough for a full graphics 8 screen. The display 
list address is 256 bytes below the display memory address. Note that this 
is very memory wasteful $ and should only be used while still learning the 
system. After that^ (DBINIT) should be used. 

( block# ) 

This command instructs the display formatter to create the next 
isplay block in the specified ''block#'' of the current display list. 
To begin creating a new display list, use: 



0 DBPTR 



DBM 



( antic-mode — ) 



The DBM command adds ''antic-~mode*' to the end of the current display 
list. For example 5 to create a video display with a single line at the top 
of the screen 5 the following would be executed: 

0 DBPTR (new list) 

2 DBM (A graphic 0 line) 

(Note: Antic mode 2 is a BASIC graphics 0 line.) 

DBMS ( #times antic-mode ) 

The DBMS command performs a multiple DBM* For example, to create a 
full graphics 0 screen, the following two commands must be performed: 

0 DBPTR (new list) 
24 2 DBMS (24 graphic 0 lines) 

This would create a full graphics 8 screen: 

0 DBPTR 

192 15 DBMS (Antic 15 - graphic 8) 

(192 graphic 8 lines fill one video screen) 
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DBMS (cont'd) 

Mixed lists are also possible: 

0 DBPTR 
160 15 DBMS 
4 2 DBMS 



This would create a screen of 160 graphic 8 i mes wvth four text lines at 
the bottom. 



08 IN 



( antic-mode block# 



) 



Oftentimes, it is desirable to slightly change the existing display 
list to obtain special effects midway through a running program. The DBIN 
command allows insertion of new display blocks within the current display 
list. This command inserts "antic-mode" into the block specified by 
"block#". Whatever was in the block "block#"' and following is pushed 
back one block. For example: 



Display list 



block #0 



1 




with the above display list, a 



15 1 DBIN 



woul d give the following display list 



block # 0 



1 



Display list 



2 



15 



^4 



8 



The DBIN allows the user to create new display lists without the need to 
dupl icate already existing display list sections. 
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DBINS ( #times ant1c-mode b1ock# 

This command repeats ''antic-mode b1ock# DBIN'' the specified number 
of times. 



I 



( block# 



The DBDEL command serves as the logical complement to the DBIN 

command. Thus, after inserting a temporary display block, the DBDEL 

command may be used to delete that display block once it is no longer 
needed: 



block # 0 



1 



1 DBDEL would give 



Display list 



D 



2 



block # 0 



1 



Display list 




Note: Deleting non-existing display blocks gives unexpected results 



DBDELS 



( #times block# 



This command perfoy^ms "'block# DBDEL" the specified number of times 
This serves as the logical complement to the DBINS command. 
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DBDELL 



( 



- } 



This form of the DBDEL corrr 
using the DBM command. For example: 



the last display block created 



Displ 



block # 0 



1 



3 




DBDELL would give 



Display 



1 







i 
I 






i 


2 




1 

i 1^ 




0 











block # 0 
1 

2 



The main use for the DBDELL command is for '^backing up"' and re-entering 
a display block when an error has been ihile creating a display list 

directly at the keyboard. The DBDELL command can be used successively for 
deleting a section of display blocks at the end of the current display list. 
There is no plural command for DBDELL command as its use is rather limited. 



7ANTM0D 



block# 



antic-mode ) 



Occasionally, it is desirable to know v/hat antic-mode is being used 
for a particular display block (such as for a text output routine text 
should not be output on a hi-resol ution line, for example). This command 
returns the antic-mode of the specified block» 



DBMOD 



( modi f ier ■ block# 



) 



When creating display lists, it 1s possible to give extra meaning to 
a particular block or section of blocks in the list. This is accomplished 
by using one or more of the three available antic-modifiers: vertical 
scroll modifier (VRTMOD), horizontal scroll modifier (HRZMOD), and the 
display-list interrupt (INTMOD), The follovnng are examples of each: 



VRTMOD 0 DB^ 

HRZHOD 3 
IMTMOD 5 DBr 



A. 
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DBMOD (cont'd) 

There are several methods in which to put more than one modifier on a 
given display block. For example, each of the following would give the 
same final result; 

VRTMOD 20 DBMOD 
HRZMOD 20 DBMOD 

or 

VRTMOD HRZMOD + 20 DBMOD 

To attach all three modifiers, the best method is: 

VRTMOD HRZMOD INTMOD + + 20 DBMOD 

It should also be noted that it is possible to create modified display 
blocks, thus reducing the need for the DBMOD command: 

HRZMOD 2 + DBM 

This would create one graphic 0 line with a horizontal modifier. 
It 1s also easy to obtain 16 lines of hi-resol ution graphics with both 
horizontal and vertical scroll modifiers: 

16 VRTMOD HRZMOD 15 + + DBMS 

CAUTION: VRTMOD and HRZMOD can only be used on antic-modes 2 through 15 

($2"$F). 

(Note: There is one additional modifier, JMPMOD; however its use is 
absolutely forbidden! This has been defined as it will be implemented 
in the next release. ) 

DBMODL ( modifier — - ) 

This command modifies the last display-block in the display list. 

?DBMODS ( block# — - modifiers ) 

This returns the modifiers on the specified display block. For 
example: 

VRTMOD 2+0 DBM 
0 7DBM0DS 

would give VRTMOD. Al so: 

VRTMOD HRZMOD 2 + + 0 DBM 

0 ?DBMODS 

would give VRTMOD + HRZMOD. To test for VRTMOD, the following method must 
be used: 

0 7DBM0DS 
VRTMOD AND 

The last line leaves only the vertical modifier, if present, or leaves 0 
indicating no vertical modifier. 
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DBREM 

The DBREM command r6fii0 V6S 

block. Care should be taken i.., 
horizontal modifier (if present) wil , .. 

DBREMS 

This performs **block# n^' ^^^" 

DBREML 

This removes the modifiers 
display list. 

?DBVAL 

The ?DBVAL coninand reiurns all 
specified, i.e,, the antic mode an 
returned as one value. 

DEW ID 

The DBWID command is useci co set 
the address array DBLST gives the pr 
1 - narrow, 2 - normal , and 3 - wid' 

USRDSP 

Once a display list has been cr 

MIXED 

The MIXED command performs a i. 
system to re-direct all output to the . 
newly created display list. 

DMPLST 

The DMPLST command instructs th. 
complete, informative listing 

DBADR 

The DBADR command is one 
Given a display block number, 
that display block « This 
text or graphic displays should be locateo 

DMCLR • 

The DMCLR command clear 
list currently being created 



( block# ) 

-cified display 
ds stripping a 
of the video memory. 

imes block# ) 

times . 

( \ 

C 0K< tM» wot I 

ck in the current 

( Hlock# info ) 

the display block 
information is 

( width ) 

0 piayrield width so that 
Leaal settings are: 

( ) 

:ivates the new list* 

( — ) 

3 the Atari operating 

...j .memory specified by the 

ambl er to Qi ve a 

• biock# — address ) 

'iGS 10 the programmer, 
che first byte of 
< ^ete^'^^'^^ning where output 

I MW> j 

0 by the display 
emo ry . 
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In addition^ there are various variables available to the programmer: 

DSPEND Points to the end of the current display li$t» 

It is an offset from 0 DSPLST* 

DSPBLK Contains the number OLthe next display block to 

be created, w 



DSPLST Is a byte array containing the display list currently being 

created. DSPEND above points to the end of the list in 
this array. 




DMLOC 



Points to the beginning of display memory. 



L> S TLv. 0 C 



Contains the address of where the display list 
is to reside in memory. 



DBLST 



Is an array of addresses used by DBADR* 
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DRAWLN ROUTINES: Stephen Maguire 
ARMADILLO GRAPHICS: Evan Rosen, William Yolk 
QUAN STRUCTURES: Evan Rosen 




Purchasers of this software and documentation package are 
authorized only to make backup or archival copies of the 
software 5 and only for personal use. Copying the accompany 
ing documentation is prohibited* 

Copies of softv^are for distribution may be made only as 
specified in the accompanying documentation. 
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VALPAR INTERNATIONAL 



Disclaimer of Warranty 
on Computer Programs 



A11 Valpar International computer programs are distributed 
on an ''as is'' basis without warranty of any kind. The total 
risk as to the quality and perfonnance of such programs is with 
the purchaser » Should the programs prove defective following 
their purchase, the purchaser and not the manufacturer , distributor, 
or retailer assumes the entire cost of all necessary servicing or 
repair. 

Valpar International shall have no liability or responsibility 
to a purchaser 5 customer, or any other person or entity with 
respect to any liabilitys loss, or damage caused directly or 
indirectly by computer programs sold by Valpar International. 
This disclaimer includes but is not limited to any interruption 
of service, loss of business or anticipatory profits or conse- 
quential damages resulting from the use or operation of such 
computer programs* 

Defective media (disk as) will be replaced if diskette(s) 
is returned to Valpar International within 30 days of date of sale 
1 0 u s e r « 

Defective media (diskettes) which is returned after the 30 day 
sale date will be replaced upon the receipt by Valpar of a $12.00 
Replacement Fee- 
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Many different approaches to creating ''computer graphics'' are possible^ and^ 
indeed, many have been implemented. One of the most fruitful approaches ^ parti- 
cularly for two-dimensional graphics work^ is a system ysually called ^'turtle 
graphics J- The val Graphics package is a turtle-like system patterned after the 
ATARI PILOT turtle graphics rendition, though with many significant extensions. 
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Overv[ev/ 

Turtle geometry v^as originally developed at MIT by Dr\ Seymour 
Papert and the LOGO group there « S~^'^'^"e that time-* a variety of 
different computer-based applications have been said to support 
'^turtle graphics^'' though in general they differ in various ways 
from the initial LOGO formulation. The formulation adopted for this 
package follows the ATARI PILOT turtle graphics nomenclature where 
possible. In general, commands in this package are much smarter than 
their PILOT counterparts, but have also been made friendly so that in 
their default modes they are functionally similar to PILOT commands* 
Because this package differs from ''true" turtle granhics 1n many ways^ 
it is called ^^armadillo graphics J' 

Some minor changes have been made in the names of a few ATARI 
PILOT commands because of collisions with existing valFORTH names* 
Important variations are listed here: 



PILOT val Graphics 

CLEAR WIPE (CLEAR, exists) 

FILL PHIL (FILL exists) 

FILLTO PHILTO (for consistency) 

QUIT (not needed and exists) 

PEN EPJ\SE 0 PEN (ERASE exists) 

LOCATE LOOK (LOCATE exists) 



It should be mentioned that for this package^ viv^tually the entire 
set of ATARI operating system graphics functions have been replaced by 
much faster (approximately 6 times) and much smarter araohic routines^. 
Highlights of these im.provements are: 

The PHIL and PHILTO functions allow filling to the left and/or 
rights filling across areas already filled^ filling until a 
specific color is hit^ f ng until a specific color is not hit 
(1*e*, re-filling) 9 filling until hitting a set boundary regardl ess 
of what lies in the vay^ filling by either replacement or exclusive 
ORh'ngs and filling into or out of corners without artifacting* 

* The DRAW and DRAWTO functions allow drawing by either replacement 
or exclusive QRh'ng, drawing until hitting a specified color^ 
drawing until a specific color is not hit* Additionally-, lines 
are more symmetric ^ and optional starting point- plot fs' supported 
(the Atari routines never plot the first point of a line), 

* All line drawing and fill v^outines allow plotting in wide and narrow 
screen width settings as well as normal ones, allowing true full 
screen graphics and memory conservative graphics, for the advanced 
programmer. 
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* Graphic mode 7+ ('7 and a half^') is fully supported and is activated 
like any other graphic mode by using the 6R. command and standard 
options. This mode is the four'-color high-resolution graphic mode 
found in most of the better video games available for the Atari 
computers* (Antic mode 14») 

* Display windowing and clipping is full supported* Options include 
'^machine specif ic^^ coordinates for speed and '^scaled^' coordinates 
for portability. 

^ TURNTWD (turn toward) and 2LNX (two line intersection) coniiiands are 
available allowing simplified perspective drawing^ 

Although the Atari 400/800 computers have extensive graphic capabilities 
the need to keep the ROM operating system under lOK apparently forced Atari 
to omit the highest resolution color graphic mode (graphic mode 7+) and allowed 
only inefficient draw and fill routines to be implemented. Since this severely 
limited the usefulness of the confiputer for plotting^, both of these problems have 
been corrected* 



A New Graphic Mode 

Many of the better video games for the Atari 400/800 computers use 
a color graphic mode not supported in BASIC. By redefining the GR. 
command, it was possible to implement this previously unavailable mode. 

This new graphic mode^ which in this package is called graphic mode 12 
is similar to graphic mode seven* The difference is that a pixel ( a 
single dot) in graphic 12 is half as tall as the same pixel in graphic 
mode 7. This mode is activated in the same manner as other graphic 
modes: 



All options [i.e., split/full screen etc.) available for other 
modes will work with this new mode. In the split screen graphics 
12 mode 5 there are 160 horizontal by 160 vertical pixel locations* 
In the full screen mode^ there are 160 horizontal by 192 vertical 
locations. Note that to use this mode the val Graphics package must 
be loaded and the new draw routines must be used (the operating system 



Draw and Fill Routines 

Because the line and fill routines in this package represent 
significant enhancement to the original operating system routines, 
an explanation of the why's and how's of this implementation is 
offered in the following. 



12 G 1^ « 



routines fail in this mode 
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It was first decided that the line-drawing routines must be speeded 
up so as to at least be in the class of routines of other 8 bit graphic 
machines* Because of the differing bit structures in the various graphics 
modes 5 these routines take up about 1000 bytes of memory* This was deemed 
a reasonable tradeoff* Since a complete rewrite had thus been elected^ 
the opportunity was taken to expand the versatility of the routines, 
trading a small portion of the speed increase already gained. Several" 
capabilities were deemed desirable and were implemented: 

* As mentioned above ^ the draw routines work in graphics mode 12, 

* Assuming that display memory has been properly laid out^ the draw 
routines work in wide and narrow screen widths as well as the normal 
ones* 

^ The draw and fill functions^ at user option^ XOR rather than replace 
pixels in display memory so that new images can be written over back- 
ground images* (Images are then .erased by rewriting, restoring the 
background image.) 

* The draw and fill functions can detect a variety of conditions so as 
to allow concepts like ''draw untiT' and ^^draw until not'' as well as 
"'fill untiV and "fill until not/' 

* The fill function allows the edge color and the surface color to be 
different^ at user option^ with the default setting that they are 
the same* 

^ The fill function allows filling to the left^ rights or both 
simultaneously^ at user option* 

* Fills are able to start from and pass through corners without 
artifacting^ at user option. (Implemented for vertical dravj only/) 

* Simple initialization of draw functions for custom display lists 
is provided* 

These features were implemented and will be described shortly* 
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STROLLING THROUGH val GRAPHICS 



the Armadillo 



To get started^ insert your val Graphics disk and load in the armadillo 
package and all optional graphics packages (^'-^^s'') (including the demos)* 
It would even be a good idea to SAVE a copy of this system in case you 
crash later on. (Insert a formatted disk and type SAVE.) The load 
addresses may be found on screen 170 of the disk* Note that you do not 
need^ and probably won^t want, to first load the graphics package provided 
on your val FORTH LI disk. Note also that as these packages load^ some 
load comments may be reported as ^^xxxx Is not unique^' and can be ignored. 
This message simply states that a word has just been defined mth the 
same name as an already existing word* 

When plotting in BASIC, location (0,0) is in the upper lefthand 
corner of the video display. All horizontal and vertical positions to the 
right and down are referenced with positive offsets from the (O5O) point « 
Armadillo graphics uses a somewhat different method to specify a location. 

In armadillo graphics^ the point (O5O) is located in the center of 
the display* Horizontal locations to right are referenced with positive 
offsets from this pointy while locations to the left are referenced using 
negative offsets* Likewise^ locations higher on the screen from the origin 
are referenced with positive vertical offsets while those lower on the 
screen are referenced using negative ones* Since this setup follows the 
standard cartesian coordinate system, function plotting is greatly simpli- 
fied* 



(360'^') 
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Let^s take a look at the basic armadillo graphic commands* Type: 



8 GR. 



ON ASPECT 
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This will put the system into graphic mode 8 with the armadillo positioned 
in the center of the display facing upward (0 degrees) « The '^dimensions'' of 
the display are 320 pixels mde and 160 pixels high* The boundaries are set 
from -159 to 159 left-to-«right ^ and 79 to -79 top-to-bottoriu (The lowest 
line of pixels and the furthest right are excluded for code symmetry and 
shortness*) The conniand ^'ON ASPECT'' will be explained later, but basically 
it ensures that squares will look like squares and not like rectangles (as 
in BASIC). First let^s turn the armadillo to the right* To change its 
direction, we use the TURN command: 

90 TURN 

This command turns the armadillo clockwise by 90 degrees from its current 
direction. To draw a line (and move) the armadillo ^ the DRAW command can 
be used. Try this: 

30 DRAW 90 TURN 50 DRAW 

A short line should have been drawn toward the right — 30 steps in the 
direction the armadillo was facing. The 90 TURN command was then used 
to aim the armadillo downvard^ and 50 steps in that direction were taken* 
The DRAW command moves the armadillo the specified number of steps in the 
direction that it is facing. Mote that a negative step count tells the 
armadillo to draw in the direction opposite that in which it faces. It 
is also possible to move the armadi.llo to a specified point on the^ screen 
regardless of which direction it is facing* The DRAWTO command is used 
for this: 

0 -60 DRAWTO 0 TURNTO 

Although the armadillo was facing down, it moved directly to the 
point (Oj-eo)* Note that although it moved diagonally^ it still is 
facing directly downward (to 180 degrees). The TURNTO command is used 
to face the armadillo in the specified direction regardless of where 
it is currently facing. In this case, the armadillo is turned to face 
0 degrees. 

In addition to drawing lines as it moves, the armadillo can fill 
in areas of the display. The PHIL command is used for this purpose 
and functions very much like the DRAW command. (FILL is already 
defined and if used mistakenly for PHIL^ the system will probably 
crash, ) Try this : 

20 PHIL 

This commands the annadillo to take 20 steps in its current direction 
filling the surface area to its right as it goes (the area to the left 
can be filled also more on that later). Similar to the DRAWTO comm^and, 
there is also a PHILTO command which works just like PHIL except that the 
armadillo moves to a specified point regardless of the direction it is 
currently facing. To PHIL to the origin (0,0) » use: 

0 0 PHILTO 

The PHILTO command should have filled straight up to the point (0,0) o 
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So far, we have used the TURN, TURNTO, DRAW, DRAWTO, PHIL, and PHIL TO 
commands. These are the basic ^^drawing'' words , used constantly , when work- 
ing with arniadillo graphics. You will encounter times when you need to 
move the a^mdillo without drawing a line between its starting point and 
its destination point* There are four similar commands which allow this. 
The GO^ GOTO^ GO.s and GOTO* All reposition the armadillo without drawing 
a line* The GO and GOTO commands function like DRAW and DRAWTO respectively 
however^ the armadillo is placed at the position where the last dot of the 
plotted line would have been and no line is drawn. G0« and GOTO* function 
like GO and GOTO; hov^ever^ a single point is plotted at the destination 
point* Try this: 

-30 0 GOTO . 180 TURNTO 

10 PHIL 10 GO 10 PHIL 10 GO 10 PHIL 
0 -60 DRAWTO 

After entering the above , type FRAME to frame this picture* If all went 
well 5 your display should look like: 
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Let us noM explore the new graphic 12 mode* In this mode^ there 
are four colors numbered zero to three* When the armadillo is moved » 
there must be some way to specify which color to DRAW with. The PEN 
command is used for this purpose* Enter the graphic 12 mode by typing: 

12 GR. ON ASPECT 

The GR. command automatically sets the draw color to one (usually 
red). Let's draw some colored lines now: 

10 DRAW (draw in color 1) 

2 PEN 10 DRAW (draw in color 2) 

3 PEN 10 DRAW (draw in color 3) 

You should now have a vertical red^ green ^ and blue line* Note that 
color 0 is black (actually background) and is used primarily for erasing 
lines* Besides setting the draw color, the PEN coninand also sets the 
PHIL color. 

-50 0 GOTO 45 TURN 

2 PEN 10 PHIL 

After .positioning the araadillo in a good position for filling, the draw 
and fill color is set to 2 (usually green) and 10 steps are taken. By 
using PHPEN command, it is possible to set the PHIL color to something 
other than the PEN color. PHPEN stands for '^phil-pen'^ and is used in 
the same manner as the PEN command: 

3 PHPEN 32 PHIL 

Note how the edge line remains the color set by the last PEN command, 
while the PHIL command uses the color set by the last PEN or PHPEN 
(whichever came last) com.mand. The PHIL color is always set by the PEN 
command for convenience* Experiment with this a bit. 

To clean the current display, the WIPE command is used. Usually 
after wiping the display^ the armadillo is repositioned to the center of 
the screen using either the CENTER or CENTERO command. The CENTER command 
simply does a ^^0 0 GOTO' while the CENTERO command does a ^'CENTER 0 
TURNTb\ 

WIPE CENTERO 

Either right or left filling can be performed, as well as both 
simultaneously! The two commands RPHIL and LPHIL take an ON/OFF value 
and instruct the next PHIL or PHIL TO command to take appropriate action. 
The default setting is ^^ON RPHIL" and '^OFF LPHIL". The command DIN IT will 

return all settings to their default values. This is especially valuable 

when 1 earning, as it is e asy to get foule d u;£. Type in the following set 
of commands and observe what happens: 



ON LPHIL 
1 PEN 



50 50 PHI LTD 
CENTER OFF RPHIL 
50 50 PHILTO 
CENTER ON RPHIL 
40 PHIL 
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This demonstration first shoves right fining^ then left filling^, 
and then simultaneous right/left filling* Note that although there was 
nothing on the screen to halt the right/left fills^ they still stopped 
upon hitting the edge of the display* In fact^ by using ivindows (which 
will be described later) ^ fill boundaries can be set anyv^here on the 
screen and fills m']] never occur outside of those boundaries. This is 
invaluable when trying to restrict drawing and filling to a select 
portion of the display* 

Another unique feature of the fill routines is that they allow 
filling over any pseudO'-background color (default is 0). The PHBAK 
command is used to specify this background color* Like the PEN and PHPEN 
commands 5 PHBAK accepts a color specification on the stack* WIPE uses 
the color specified by the last PHBAK command^ and the fill routines 
recognize this as background to be filled over* Try this: 

3 PHBAK WIPE 

CENTERO 0 PEN 1 PHPEN 

50 50 PHILTO 

For the time being ^ we will leave the background color blue and 
continue on* Next we are going to define a few words which will draw 
simple shapes* Bear in mind that when defining shape words^ TURNTQ, 
DPAWTOs and PHILTO should be avoided as they are absolute in nature. 
Typically, figures should be drawn relative to the armadillo^s direction. 
Likewise^ the armadillo should generally be returned to its original 
position and heading once the '^canned'^ shape has been drawn. (For the 
curious^ the v^ords DXl and DYl return the x-y coordinates of the armadillo 
current location* The word DAZM returns the directional angle of the 
armadillo*) We shall now define a word v/hich will draw a square on the 
screen* 



SQUARE 
DUPDRAW 
DUPDRAW 
DUPDRAW 
DRAW 



( #step$/s1de 



90 TURN 
90 TURN 



U i U Krt 



90 TURN 



WIP 



20 SQUAR 
45 TURN 



CENTERO 2 PEN 
20 SQUARE 



There are several points to be mentioned here* Firsts because 
combinations of DUP with DRAW, GO, and GO. occur often , the words DUPDRAW, 
DUPGO^ and DUPGO. have been defined to conserve memory* 

Also notice that the squares drawn really have sides of equal length 
(in BASIC, the vertical legs would be much shorter) « The armadillo packag 
performs '^aspect ratio'' calculations which ensures that ^'equaV lines are 
drawn the same length regardless of their orientatioji to a fixed axis* 
These routines were enabled at the beginning of this stroll with the 
''ON ASPECT^' command. Because these calculations do take time (approxi- 
mately 3 milliseconds per draw)^ they can be turned off using the cornmand: 



OFF ASPECT 
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Now, notice how in the last example ^ the second square was rotated 
45 degrees from the first square. We can write simple words using this 
effect that look pretty snappy on the screen: 

' FAN ( #steps/side ) 

20 0 (20 squares for fan ) 

DO 

18 TURN ( 360 degrees/20 - 18 ) 

DUP SQUARE 
LOOP 
DROP ; 

WIPE CENTER 30 FAN 

This v/ord draws 20 squares on the screen each offset from each other 
by 18 degrees. Try changing PEN colors and give different step sizes to 
FAN and watch the results. Each of the boxes drawn by FAN is the same 
size* We can write another simple word which will slightly increase the 
size of each box drawn and obtain a different effect: 

: WHIRL ( #boxes ) 

( #boxes ) 0 
DO 

I 3 / SQUARE ( increase size ) 

5 TURN 
LOOP ; 

WIPE CENTER 250 WHIRL 

This word draws the specified number of boxes, each one rotated from 
the last by 5 degrees. After three boxes are drawn ^ the bo X size is 
increased. This is how the swirl effect is obtained. A slight variation 
of this is to change the PEN color before each square is drawn., but this 
is left to the reader* 

Up to nows we have drawn lines from one point to another v^egardless 
of what the line replaces* This is standard for line drawing routines. 
In the valGraphics package, however^ ''draw untiV' is supported. In other 
words, lines can be drawn that will stop on the first occurrence of another 
line (actually, until the color specified by PHBAK or DRBAK, whichever 
came last). When the draw-until switch DRUNT is ON, all DRAW, DRAWTO, PHIL 
and PHILTO commands will stop when the base line hits another line on the 
display. Here^s an example: 

ON DRUNT WIPE CENTERO 
40 SQUARE 

Don*t worry if only the two vertical sides of the square were drawn^ this 
is normal. Since the draw routines in this package plot both the end 
Po^'^^t the starting pointy the end point of the first side stopped 
the line draw of the second side* In most cases^ this, is the desired 
function for DRAW, but while drav^i ng-unti 1 (ON DRUNT), first point plotting 
is not desired* For this reason^ it can be easily turned off using the 
DRIST switch: 

OFF DRIST WIPE 
40 SQUARE 
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With DRUNT still on, try the following example 



WIPE 30 QCIRCLE 
40 SQUARE 



The QCIRCLE command draws a quick'-and-dirty circle about the 
armadillOj, vnth the value on top of stack taken as the approximate 
radius* Notice how the 40-step square turned out* Because the draw- 
until mode is on^ each side 1s drav^n until another line is encountered* 
Notes however^ that even though the line was not drawn to the destina- 
tion point, the armadillo was still positioned there* Because interest- 
ing results can be obtained by using this feature^ the RELOC comnand 
must be used explicitly to reposition the armadillo to the last plotted 
point of the line« The following two definitions might come in handy: 

: DRWUNTIL ( #step$ ) 

DILLO 
ON DRUNT 
DRAW DFL6 
IF RELOC ENDIF 
OFF DRUNT ; 



DRW2UNTIL ( x y ) 

DILLO 

ON DRUNT 

DRAWTO DFLG 

IF RELOC ENDIF 

OFF DRUNT : 



(DFLG is a flag set true only if the last DRAW or DRAWTO crossed 
the current window.) 

These two commands will automatically reposition the armadillo at 
the end of the drawn line after each draw* One last point about draw- 
until occasionally it is desirable to know when a draw-until line vms 
stopped by the draw-until function^ rather than by reaching an end point 
or window boundary « The ?DRSTP word will return a one (1) 1f the last 
•line was stopped ^ otherwise it will return zero. Try drawing a few lines 
and verifying this. ?DRSTP is in the DILLO vocabulary* (See the glossary.) 

Up until now^ when we filled areas or drew-until.^ both the fills 
and draws would stop when encountering a non-pseudo background color (set 
by PHBAK or DRBAK)/ Often, it is desirable to refill an 'area (i.e., 
fill until background is hit) or draw-until hitting the pseudo background 
color. There are two switches which can be turned ON or OFF as desired. 
The PHUNOT (fill until not) switch ^ when ON, fills until the color set 
by the last PHBAK command is not hit* This is the defaulat condition 
(i.e., fill until background is not hit)* When OFF^ the fill routines 
continue to fill unt^"" the pseudo background color is hit. Likewise^ the 
DRUNOT (draw until not) switch?, when ON^, draws until the color set by the 
last PHBAK or DRBAK (whichever came last) coiMiand is hit. Let^s take a 
look at this: 

DINIT (Reset draw/fill switches) 

2 PEN 3 PHPEN 

WIPE CENTERO bO bU PHILTO 

1 PHPEN 180 lUmTn 

OFF PHUNOT (fill while not background) 

OFF RPHIL ON LPHIL 60 PHIL 



As you may recall, the DINIT command initial izes all eleven switch 
settings (five of which have yet to be introduced). Next a normal right 
fill (filling over background) is performed* The PHUNOT switch is then 
set for filling while not background and a left fill is performed. 
Notice that no filling occurred when the base fill -line extended out of 
the previously filled area* 

DRUNOT works in the same manner. Execute the last example a second 
time, but turn both PHUNOT and DRUNOT off where previously just PHUMOT 
was turned off. Also turn DRUNT on. This time, no line should extend 
past the previously filled area. {Note that the base line of a fill 
responds to all the draw switches) • 



■ To finish off this first part of the stroll, the final five draw 
switches will be explained. Briefly, they are PH-DR which allows the 
base line of a fill to be drawn or not, DRXOR and PHXOR which allow 
lines and fills to be XOR'd into place^ PHCRNR which enables/disables 
rudimentary corner check tests for filling, and PHUNT which allows 
filling to the edge regardless of what lies in the way. 

The PH-^DR switch is available because there are tinies when it is not 
desirable to actually draw the base line of a fill. This 1s the case when 
PAINTing (i.e.. ''shape filling^'' which is not supported but may be imple- 
mented). The default value for PH+DR is ON.. When PH^DR is OFF , the 
pixels where the base line should be drawn are left untouched* 

The DRXOR and PHXOR switches allow lines and fills to be 
XOR^d into place. This has the useful property that by simply redrawing 
or refilling the exact same line or shape the object will erase itself. 
For a good example of this^ we can use graphic mode 8: 

8 GR. DINIT 250 WHIRL 

1 PHBAK ON DRXOR WIPE 

Recall that the WIPE command uses the value set by the PHBAK conmiand- 
in this case, one* WIPE is defined to use a multiple DRAW and therefore 
responds to most (but not all) of the draw switches* Because the WIPE is 
performed with the DRXOR mode on^ the display is inverted. WIPE the dis- 
play a second time to re-invert it. To erase the display, DRXOR must 
be turned off* Try this: 

0 PHBAK OFF DRXOR WIPE ON DRXOR 

1 PEN CENTERU 40 FAN 

40 FAN ( one more time ) 

It is important to remember that lines drawn with pen zero have no 
effect in the DRXOR mode. Likewise^ first point plot should generally be 
turned off when DRXOR is on othei-^ise endpoints will be lost* Now to 
demonstrate PHXOR and PHUNT try these examples: 

DINIT WIPE (normal situation) 

CENTERO 100 WHIRL 50 50 PHILTO 
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Now with PHUNT off: 

CENTERO OFF PHUNT 50 50 PHILTO 

The last fill command should have filled clear to the edge of the display 
ignoring everything in its path* Using this with PHXOR^ interesting resu 
can be obtained: 

WIPE CENTERO 50 FAN 

ON PHXOR 50 50 PHILTO 

Uovh try: 

CENTERO 50 50 PHILTO 

By using windows (described later) ^ the fill and draw comiiands can be 
restricted to selected areas of the display. In combination with windows 
PHXOR can produce astounding visual effects (especially in GTIA modesK 

The last remaining switch to be described is the PHCRNR switch* 
PHCRNR allows rudimentary corner checking for vertical fills* Because 
its use is specialized. PHCRNR is normally turned off. The following 
example will show its function: 

DINIT CENTERO WIPE 

50 GO 50 0 DRAWTO 0 0 DRAWTO 50 PHIL 

Notice the artifact at the top corner. Now^ turn PHCRNR on and perform 
the same example (less the DINIT command) « This time^ no artifact should 
have appeared. It is important to remember that these corner tests will 
not work with many diagonal fills^ and completely fail when refilling an 
area. Also note that when first point plot is disabled^ even vertical 
filling fails* 

All of the basic armadillo commands have been explained and are 
summarized in the glossary and on the valGraphic Handy Reference Card« 
Although many commands have been discussed^ there are many more left 
to talk about « These include the perspective drawing comm^ands for 
three dimensional displays^ and the complete set of window commands 
which will be described next. 



(NOTE: In all of the above examples? WIPE has been used to 
clear the display. In many cases, the memory FILL 
command can be used instead: 88 @ n 0 FILL where 
n is the size of display memory in bytes. This method 
is much faster but cannot be used with windows*) 
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STROLLING THROUGH valGRAPHICS, PART II: 
Windows,, Lines and Labeling 



Wi ndov^s 

Up until now we*ve been working in the base window that is set up when using 
the 6R« command. Let's compose some other windows. Type: 

12 GR» 
FRAME 
10 QUBE 

-50 "10 30 "10 WINDOW 
FRAME 

DOT 

We entered graphics 12, framed the base window, made a window whose left, right, 
top, and bottom edges were at -50, -10, 30, and -10 respectively, framed it, and 
then put a dot at the armadillo and found that it was at the center of the new 
window. Now type . 

25 QUBE 

and note that the cube is cl ipped within the boundaries of the new window, not 
the old one. This could be very useful;, say, in showing what vvas visible through 
a "real" window 1n a house that you had drawn, without going to a lot of extra 
troubl e to restrict the image to the house's window. Now type 

WIPE 
CENTERO 

25 QUBE 

Nothing happens. This is because CENTERO centered the armadillo in the base 
window. We need to use a different word to re-center in the new window. Type 

WCTRO 25 QUBE 

That's more like it. WCTRO stands for "Window CenTeR 0 turnto," and there is 
also just a WCTR, for "Window CenTeR." Let's try some of the other tricks 
from before: 

3 PHBAK 

WIPE 

WCTR 

20 QUBE 

FRAME 

ON DRXOR 

WIPE 

Get the idea? When we did ON DRXOR, the draw routines, which are used by WIPE, 
started doing an XOR instead of a replace^ with the same effect as we've seen 
before, but this time restricted to a smaller window. Type 



XL I -14 



DIN IT 

WIPE 

DOT 



to get things back to normal. Note that DIN IT returns to the base window and 
so WIPE wipes the entire screen. The window in which we were just working is 
fo rgotten. (We'll discuss ways to remember it a 1 ittle later.) DOT shows that 
the armadillo is back at the center. Now type 

ON ASPECT 

-BO -10 30 -10 WINDOW 
FRAME 

and you see that this "same*^ 40 by 40 window as before now looks much more 
nearly square. This illustrates that ASPECT works on windows as well as lines. 
With ASPECT on, what you give up in order to get better shapes is some informa- 
tion about what coordinates the top and bottom of the screen actually are, but 
for "hands on" use this is not much of a loss. Let's make two more of this 
type of window: 

2 PEN 

0 30 20 "30 WINDOW FRAME 
DOT 

OK, and then 

-30 30 90 -90 WINDOW 

Notice that this window is larger than the base window. Now type 

DOT 
FRAME 

and notice the trash in the text window. If you choose to make a window 
larger than the base window, the system wi 11 not protect you; it assumes that 
you know v^hat you're doing. 

Type CIS once or twice to clear the screen. Then type 

12 GR. 

10 50 -10 -60 RELWND 
FRAME 

2 PEN 
40 QUBE 

Interesting. Now a 40 QUBE used to be much bigger; but because we typed RELWND 
instead of WINDOW, objects are drawn relative to the new window, as if it were 
the base window. Type 

3 PHBAK 
WIPE 
FRAME 

10 50 -10 -60 RELWND 

FRAME 
40 QUBE 
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Get the idea? Relative windows are useful for all sorts of tricks. Often, it 
woul d be helpful to be able to return to a window, and relative wi ndows are the 
hardest to reconstruct. Try typing, on one line, 

THISWND LIVING-ROOM 

(Defining words shoul d always be fol lowed by the name of the new word on the 
same line.) 

By typing LIVING-ROOM later on we can return to this window, as a relative window, 
with no further work. To demonstrate, type 

0 PHBAK 
WIPE 
BASWND 
ON DRXOR 

1 PHBAK 
WIPE 

-20 0 20 0 WINDOW WIPE 
THISWND MY -ROOM 
LIVING-ROOM 

WIPE 
50 QUBE 
MY- ROOM 
50 QUBE 

Normal windows, created by WINDOW, of course can also be named more directly: 

: window-name number number number number WINDOW ; 
and you' ve got it. 
Well, what else? Type 

40 GR. 

What have we here? 40 is 32 + 8 so we've entered 8 GR. without pre-erasing. 
(This is one of the standard GR. options, you HI recall.) Since 12 GR,. and 
8 GR. occupy exactly the same display memory, what v/e see is the 12 GR. image 
data interpreted as 8 GR. Four color 8 GR. This effect has been written up 
in various pi aces, and here it is. You can come back and play with this sometime. 
Right noWs type 

01 NIT 

WIPE 

DOT (you may not be able to see it on your screen 

without adjustment.) 
0-30 GOTO 60 DRAW 
30 0 GOTO 270 TURNTO 60 DRAW 
(Now it's more visible) 
87 "31 GOTOo 
(Move away) 

0 0 TURNTWO ("turn- toward") 

100 DRAW 
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Youm notice that the line doesrVt hit 0^0 exactly* This is because the 
armadillo^s direction is only represented to the nearest degree* Stilly this 
is good enough for most purposes. 

Finally 9 let^s draw the a rectangular solid in two-point perspective* 
(The procedure in this example is not necessarily the best one^ but it 
illustrates several capabil ities« You might want to have the debugging 
package loaded from the val FORTH 1. 1 disk^ and have the stack turned on. 
That vmy you can follow the action on the stack also*) First we set up a 
horizon and two vanishing points: 

WIPE 

-200 60 GOTO 90 TURMTO 500 DRAW 
-100 60 NAMEPT VPl (name the point on stack) 
100 60 NAMEPT VP2 

Then we ^'construct'* the solid 

CENTER VPl TURN TWO 40 DRAW 

THISPT PTl (name the present point) 

CENTER VP2 TURNTWD 30 DRAW 

THISPT PT2 

CENTERO 20 DRAW 

THISPT PT3 

VPl TURNTWD MA KIN (leave a ^Hine'^ on the stack) 

PTl GOTO 0 TURNTO MAKLN (leave a second line) 

2LNX (find their Intersection) 

NAMEPT PT4 (and name the point) 

PT4 DRAWTO PT3 DRAWTO ' ^ 

VP2 TURNTWD MAKLN (do it again) 

PT2 GOTO 0 TURNTO MAKLN (second line) 

2LNX (intersection) 

2DUP GOTO (make a copy then go there) 

PT3 DRAWTO PT2 GOTO 2DUP DRAWTO (put in 2 more lines) 

VPl TURNTWD MAKLN PT4 GOTO VP2 TURNTWD MAKLN 2LNX 

DRAWTO DRAWTO (finished) 

0 GR. VLIST (see the new words: point names/) 
40 GR. (Still there J 

In addition to MAKLN there is also THISLN which name the line the armadillo 
lies on 3, and NAMELN which will name a line on the stack. Given two points on 
the stacks 2PT-LN will change the four values into three ^ suitable for use 
with NAMELN* Practices and some study of the glossary^ will help* The user 
should realize that points and lines canH be named very easily within a 
programs but only while the program is loading. Within a program^ use the 
stack or array structures for saving points and lines* 

This stroll is not meant to exhaust the possibilities of this package^ but 
merely to indicate them^ A clever programmer, for instance^ would have little 
trouble in figuring out how to interface this package to a joystick to make a 
very versatile sketchpad. 

Hmmmmm? 
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val GRAPHICS GLOSSARIES 



Turtle graph! cSs and so also val GRAPHICS, uses a coordinate system different 
from that used by the Atari OS. In val GRAPHICS, the center of the graphics 
display is the point 0,0. '^x^' values are positive to the right and negative to 
the left, while '^y^' values are positive toward the top of the display and 
negative toward the bottom. The maximum values of x and y may vary between 
display modes, depending on various user options that are selected. In this 
regard^ see examples in the ''Strolling Through valGRAPHICS'' sections of this 
packages and also the words MCOOR and SCOOR in the ^H^h'ndows^^ section below« 
In the glossary that follows^ all mention of coordinates will -apply to valGRAPHIC 
coordinates rather than to Atari OS coordi nates » 

The DRAW , DRAWTO , PHIL, and PHILTO commands support a number of options 
with a fair degree of complexity and power when used fully. These commands and 
options are discussed as a group at the end of the glossary and summarized with 
a chart which also appears on the handy reference card. The functions discussed 
are necessarily complex; however, the command DINIT (''d-init^') is provided so 
that the user may return the system to a ^^standard-option'' status during 
experimentation and practice^ or during actual program execution. 

The term ^'pixer' stands for ^'picture element*' and refers to the smallest 
''point" Vr/hich may be drawn in a given graphics m.ode* 

As usual, ''color'' specification numbers refer to color registers. The 
actual colors in the color registers may be changed by various means, including 
loading the COLOR COMMANDS package from the val FORTH LI disk and using the 
SETCOLOR or SE. command* 

On GTIA-equipped machines in 10 GR. there are nine colors available, 
because the four player/missile color registers are also used. Since these 
registers sit just below the pi ay field color registers in memory, they may be 
set by using negative ''playf ield'^ numbers when using SE. . For instance, -3 
PINK 6 SE. wilTset player/missile 1 (- -3 4) to PINK 6* 

On GTIA-equipped machines in 9 GR. the V,olor^^ set by the various color 
commands below 3 e.g. PEN, PHPEN, PHBAK, etc., is interpreted explicitly as 
luminance between 0 and 15. The hue is that of the background color register. 

On GTIA-equipped machines in 11 GR. the "color^^ set by the various color 
commands below is interpreted explicitly as a hue between 0 and 15. The lum 
is that of the background color register. 

The term ^'armadil lo^' rather than turtle^' will be used in this package. 

DILLO (short for armadillo) is a vocabulary that branches from FORTH. 
All of the system words in this package have been put in the DILLO vocabulary 
to keep them out of the way during VLIST and other tasks. Some little-used 
words are also in DILLO, though advanced users may want to get at them. To 
enter the DILLO vocabulary simply type DILLO and these words will now be 
recognized by the system. Note that since the word : generally puts the 
system back into the FORTH vocabulary, DILLO may have to be used within a 
colon definition^ See the source code for numerous examples of thiSo Words 
in the DILLO vocabulary are so specified in the glossary below. (The word 
DILLO is immediate* ) 

For clarity, some definitions may be repeated. Within this glossary, 
however, the same name indicates the sam^e word. 
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General Functions : 



val GRAPHICS Glossary 
Part I of in 



GR« ( n ) 

Appears to function as alv/ays, but is now much more powerful: 

For n - 12^ or 12 with higher bits set for the usual options , the mode 
known popularly as 7+ will be activated. This mode is set by Antic instruction 
14 and its characteristics are listed on the handy reference card which 
accompanies this package* 

^ For n ^ 3 to 12^ (possibly with higher bit options), the appropriate graphics 
mode will be set up^ and all armadillo parameters will be initial ized, . Note, 
of course^ that if your machine does not have a GTIA chip, then modes 9, 10, 
and 11 will not operate as they should. 

^ For n ^ 0 to 2^ (plus higher bit options) ^ the system will respond as usual. 

GR* Initializes a number of system and user quantities. Data about pixel 
and display-memory dimensions are sent to appropriate addresses. A pen color 
register of 1 is set by 1 PEN, and the background color register for fill 
commands is set to 0 by 0 PHBAK. OFF ASPECT is executed* 

PEN ( n ) 

This command is used to change the color that the armadillo draws with. 
PEN sets a new color register^ n. to be used by the DRAW^ DRAWTO, PHIL, and 
PHI LTD commands « 

PHPEN ( n ) 

This command is used to change the color that the armadillo fills with. 
PHPEN sets a new color register, n, to be used by the PHIL and PHILTO commands* 
Note that PEN also sets a new color register for PHIL and PHILTO, so the value 
used by PHIL and PHILTO will be determined by whichever command^ PEN OR PHPEN, 
was done last.. 

DRCLR ( b ) 

Returns the present color used by the armadillo for drawing. DRCLR is 
in the DILLO vocabulary, 

PHCLR ( b ) 

Returns the present color used for filling. PHCLR is in the DILLO 
vocabulary. 

GO in--) 

GO moves the armadillo n units in the direction in which it is facing. 
No lines are drawn or points plotted. 

DUPGO ( n n ) 

Same as GO^ but doesnH destroy stack argument. 
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GO* { n ) 

60. oioves the armadillo n units in the direction in which it is facing 
and then pokes the pixel at its new location with the value set by the last 
PEN command. 

DUPGO. ( n n ) 

Same as GO^^ but doesnH destroy stack argument. 

DOT { ) 

DOT puts a dot of the present armadillo color^ set by PEN^ at the present 
armadillo position* 

GOTO ( X y ) 

GOTO positions the armadillo at x,y. No lines are drawn or points plotted. 
GOTO. ( X y ) 

GOTO, positions the armadillo at x^y and pokes the pixel at the new 
position according to the color register selected by the last PEN command. 

CENTER ( ) 

Positions the armadillo at the point O^O. The direction the armadillo 
is facing is unchanged o 

CEHTERO ( ) 

Positions the armadillo at the point 0,0 and turns it to face 0, i^e., 
straight up« 

RELOC ( ) 

Positions the armadillo at the last point drawn by the system routines. 
This is a special purpose command and is used in conjunction with clipping 
in windows, and with the ^'draw-untiT' option, described elsewhere. RELOC is 
in the DILLO vocabulary. 

ASPECT ( ON or OFF ) 

ON ASPECT will cause vertical components of subsequent graphics commands 
to be scaled to account for the fact that pixels are not square. Thus^ circles 
will be rounder, squares will be squarer, and so on. Of course, shapes that 
previously fit on the screen may not fit any longer^ as a result of the 
vertical expansion. OFF ASPECT will turn the compensation off for subsequent 
commands. OFF is the default mode, but this may be altered by changing ''OFF 
ASPECT'^ to '^ON ASPECT^^ at the end of the source code for GR. 

LOOK ( X y — b ) 

This command returns the value of the pixel at location x,y, LOOK does 
not move the armadillo. For example, to find the color of the pixel under 
the armadillo, use the armadillo's coordinates: DXl DYl LOOK. 



XLII~3 



DXl ( ~- n ) 

Returns the x coordinate of the armadillo. 
DYl ( n ) 

Returns the y coordinate of the .armadil lo* 

TURN in--) ■ 

Changes the direction that the armadillo is facing by n degrees clockv^/ise. 
Hence 5 if n 1s negative ^ the armadillo will turn counter-clockwise, 

TURNTO in--) 

Turns the armadillo to a heading of n degrees from vertical. Hence, 
0 TURNTO points the armadillo toward the top of the display^ and 90 TURNTO 
points the armadillo toward the right edge of the display^ and -90 TURNTO or 270 
TURNTO both point the armadillo toward the left edge of the display. 

TURNTWD ( X y ) 

Turns the armadillo so that it faces toward the point x,y. ''Turn-toward J' 

DAZM { n ) 

Returns the direction^ in degrees (0-359), in which the armadillo is 
facing. Stands for ^'dillo azimuth/' 

DINIT ( ) 

DINIT stands for '^armaDillo INITialize/' Use it to return all options 
to their default values and to center the armadillo in the display. Useful 
during practice and experimentation* 

DRAW in--) 

Move the armadillo n units in the direction in which it is heading* Draw 
that portion of the line of travel of the armadillo, including the first point, 
that falls within the current window, using the current PEN value* 

DRAWTO ( X y ) 

Move the armadillo to x y and draw that portion of the line of travel that 
falls within the current window^ using the current PEN color register* 

PHIL ( n ) 

Move the armadillo n spaces in the direction it is heading, and as in DRAW, 
color that portion of the path of travel with the PEN value. Also perform a 
fill to the right during the time that the armadillo is in the current window, 

PHILTO ( X y — ) 

Move the armadillo to the point x y. Then proceed as in PHILo 
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Windows and Coordinate Systems 



The following discussion is largely technical « Even so, it may be skimmed 
by the casual user^ who can also get a "hands-on^' feel for the operation of 
windows and coordinate systems by following the examples in the ^'Strolling 
Through val GRAPHICS'' section of this package* The proliferation of quantities 
in this package is necessitated by allowing it to handle both '^absolute'' and 
''relative'' windows at the same time. Because of the complex changes of coordi- 
nate system that this entails, a variety of different data are kept on system 
configuration* This process is transparent to the casual user but may be 
used with great power by the experienced programmer. 

This package uses cartesian (rectangular) coordinate systems (CS^s) 
throughout^ For highest speed in graphics work^ the graphics coordinate system 
should be in the same ''scale'' as the hardware* That is^ moving one unit 
horizontally or vertically in the graphics CS should move the graphics cursor 
{in this case called the armadillo^ one pixel. Doing this avoids additional ^ 
usually relatively slow^ multiplication and division operations to make the 
graphics CS ''fit'' the hardware CS. However, sometimes the speed sacrifice is 
worthwhile in achieving a desired effect* Therefore , both types of CS are 
supported in this package. The default CS is of the first type^ and 1t may also 
be called into play explicitly by the command ''MCOOR" which stands for ^''machine 
coordinates J' This mode is used for high-speed at some sacrifice of flexibility. 
The optional mode is called by ''SCOOR'' which stands for ''scaled coordinates/' 
Before executing SCOOR^ the user may want to set up coordinate boundaries by. 
using SET-SCALE ^ defined below* Moving between these two types of CS may also 
be handled automatically by the window routines discussed next. Because of 
automatic initialization routines in GR., the user may employ both machine and 
scaled CS^s without ever calling them up explicitly. This happens through the 
commands WINDOW^ which puts the system into the machine CS before interpreting 
its 4 stack argum.ents; and RELWND^ which puts the system into scaled coordinates 
before interpreting its 4 stack arguments* (Clearly^ RELWND must force the 
system into scaled coordinates, since it will be creating a window with the 
sam.e numerical coordinates as the one RELWND works from^ though the windows 
will generally be different sizes.) For some help in familiarization with these 
procedures 3 please refer to the examples in the ''Strol ling. « section » 

A '^window,'' for the purposes of this package is a rectangular portion of 
the graphics display ay^ea. Windows are implemented to allow ''clipping" as 
well as some additional scaling and distortion features* Clipping allows the 
armadillo to travel inside and outside the currently active window^ while allow- 
ing drawing and filling only while the armadillo is within the boundaries of the 
window^ 

The current window^ s ''physical boundaries are keot in the system quans 
WNDLFT, WNDRGT, WNDTOP, and WNDBOT. (For an explanation of the QUAN structure, 
see the section on this topic*) The user does not generally access these 
quantities directly, but sometimes may v^ant to do so for special effects* 
WNDLFT and WNDRGT are^ respecti vely^ the number of pixels from the left edge of 
the display to the left edge of the window, and the number of pixels from the 
left edge of the display to the right edge of the window^ Similarly^ WNDTOP 
and WIMDBOT are referenced from the top of the display. Again^ the user doesn^t 
have to use these quantities; they are^ however, the "bedy-^ock'' of the windowing 
process. These quans are in the DILLO vocabulary. 
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When a graphics-type GR« command is executed (3-12^ see GR* above) a window, 
called the ^^base window,'' is set up which takes up the entire graphics display 
area. (The ''physicaV' edges of the base window a?^e stored in the system quans 
WNDLj WNDR, WNDT, and WNDBs which have meanings similar to WNDLFT^ etc*^ above^ 
and are likewise in the DILLO vocabularyO The user may generally return to 
the base window at any time before leaving the graphics mode by executing BASWND. 
When the base window is made current by the user explicitly or by GR*, the 
armadillo is placed at the point O^O^ i.e., the center of the window^ and 
turned to 0 degrees^ or straight up. The default ''numericar' values of the 
window-boundaries are set so that they correspond to pixel counts vertically and 
horizontally* For instance^ in 7 GR. the numerical boundaries would be +-79 
horizontally (since there are 160 pixels across the display in that mode), and 
+-39 vertically (since the mode is 80 pixels high*) These values are stored in 
the system quans WNDW, WNDE^ WNDM^ and WNDS, which stand for ''window-west/^ etc. 
These values may be altered by means described below (SET-SCALE), although the 
change will slow down the draw routines because of the extra transformation 
required when not working in the ''naturaV coordinates of the system. 

After initializing to a graphics mode with GR., the user may use the various 
commands in this package to create graphics displays in the base window. However, 
additional flexibility is available to the user by defining new windows ^ as 
fol lows. 

The command WINDOW is used to define temporarily a rectangular area of the 
display as the current window. This definition will last until the next window 
defining command e.g«, WINDOW, BASWND, GR., DIMIT^ etc. WINDOW defines the 
window in the coordinate system of the base window. Indeed^ WINDOW does 
BASWND before proceeding* (The base window is set up automatically by GR*, or 
by DEFBAS when using a customized display list.) WINDOW expects four arguments 
on the stacks namely the left, right, top and botton edges of the new window, 
expressed in the coordinate system of the base window. (RELWND ( '^rel -wi nd" ) , 
defines a window relative to the current window, not the base window; its 
description otherwise parallels that of WINDOW.) When WINDOW is executed, a new 
window is made currents and all applicable internal quans are altered as 
appropriate^ The armadillo is centered in the new window and turned to 0 degrees* 
The numrerical boundaries of the new window will be, as. stated before. WNDW, WNDE, 
WNDN, and WNDS. 

(Advanced users: NOTE that, when in a 6R. mode, decimal 88 @ will leave the 
address of the byte in the upper-left-hand corner of the display* Internal 
calculations are based on this location. In general, if the user wishes to 
redirect the graphics routines in this package to a display memory area in a 
non-6R. display mode, he or she need do two things: Store the appropriate value 
into memory location decimal 88, and then execute DEFBAS^ described below, to 
establish a base window. Note, however, that if your display memory makes a 
discontinuous jump^ as can occur for instance when crossing a 4K boundary, the 
graphics routines will not function properly.) 

Additionally, the window-naming word, THISWND, is provided for ease 
simplicity in returning to a specific window* 

* 

Reference on clipping algorithms: 

A P r a c t i c a 1 I n t r o d u c t i on t q._ tojiigixter:^^ Ian 0, Angel K 
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val GRAPHICS GLOSSARY 
Part II of III 

Windows and Coordinate Systems 



WINDOW ( left right top bottom ) 

Sets a new window whose boundaries? expressed in the coordinate system of 
the base window (not the current window), are taken from the stack in the order 
indicated* The armadillo is centered in the new window and turned to a zero 
angle* Machine coordinates are activated. (See MCOOR). 

RELWND ( left right top bottom ) 

Makes current a window whose edges are as Indicated on stack in the 
coordinate system of the current window (not the base window)* Scaled coordi- 
nates are activated, (See SCOOR). 

WIPE ( -™ ) 

Colors the entire current window according to the color register selected 
by the last PHBAK command. Note that since WIPE uses the system routine DiV\WLN 
It will be affected by DRXOR. Hence if ON DRXOR has been executed last then WIPE 
will XOR all pixels in the entire current window with the value set by PHBAK, 
rather than replacing them with that value« This 1s useful for interesting and 
often eerie effects. 

FRAME ( ) 

Draws a line around the current window accordina to the color reaister 
selected by the last PEN commands 

BASWMD ( — ) 

Makes the base window (usually the full window first put up by a GR. coniniand) 
currents centers the armadillo and turns it to 0 degrees* 

THISWND XXX, ( ) 

XXX : ( ) 

Creates a word» xxx^ which when executed makes current the window which 
was current at the time xxx was defined* Also centers the armadillo and turns 
it to 0 degrees 5 and restores XFORM to its state at the time xxx was defined. 
Located in the '^Window Naming'' package* 

DEFBAS ( left right top bottom ) 

Advanced users. Used to set up a base window when not using GR.. The 
values indicated are the number of pixels from the left edge of the display 
(for left and right) and from the top edge of the display (for top and bottom). 
Before using this command, the value at decimal 88 should be set to point to the 
byte that represents the upper-left-hand corner of the display area to be used 
for graphics « DEFBAS is in the DILLO vocabulary* 
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SET- SCALE ( horiz vert — ) 

Used to redefine the horizontal and vertical numerical boundaries of 
windows. After executing SET-SCALE 5 the SCOOR (stands for "scaled coordinates'') 
command will set windows to range horizontally between +-horiz and vertically 
betv^een +"-vert» Note that the point 0^0 will remain the center point of 
windows* Since the command RELWND does SCOOR, relative windows will reflect 
use of SET-SCALE* SET-SCALE is in the DILLO vocabulary. 

MCOOR ( ) 

Sets the horizontal and vertical numerical boundaries of windows to 
correspond to the number of pixels in each di rection in the base window. '•MCOOR'* 
stands for ''machine coordinates J' It is not generally accessed directly by the 
user, with one exception: After having done a RELWND and returning to the base 
window by BASWNDs an increase in speed may be had by executing MCOOR, if the 
user was using the default scale set automatically by GR« This is a fine 
point, but v^orth noting. MCOOR is in the DILLO vocabulary. 

SCOOR { ) 

Sets the horizontal and vertical numerical boundaries of windows to 
correspond to the default values set by GR. or by values set by SET-SCALE. 
'''SCOOR'' stands for '^scaled coordinates J' It is not generally accessed directly 
by the user. SCOOR is in the DILLO vocabulary. 



:WCTR ( — ) 

Centers the armadillo in the current window^ 

:WCTRO ( ) 

Centers the armadillo "in the current window and turns it to 0 degrees 
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Line-naming and line manipulation; point-naming 

These packages support labeling various graphics ''entities" for convenience in 
recalling them subsequently, for a variety of purposes. 

Lines are stored internally as three-number quantities which are the 
(non-unique) A, B, and C parameters in standard algebraic line notation. 
(See the section on The Straight Line in Mathematical Handbook for Sci entists 
and Engineers, 2nd Edition, by Korn and Korn. Point/slope representation is 
TrTSuffirient; point/azimuth representation vvould work but v«s not used because 
of some"doubts concerning execution speed.) Labeling of lines is done princi- 
pally for subsequent geometric-construction-type operations, like finding the 
intersection of two lines, or the point where the armadillo would intersect 
a given line. 

NAMEPT XXX, ( X y — ) 

XXX : ( — X y ) 

Creates a word xxx. When xxx is executed, it returns x and y to the stack. 

THISPT xxx, ( — ~) 

xxx: C — X y ) 

CYpates a word xxx. When xxx is executed, it returns to the stack the x 
and y coordinates of the armadillo in the coordinate system of the window current 
at the time xxx was created. 

2PT-LN ( xl yl x2 y2 — a b c ) 

Takes the coordinates of two points on the stack and leaves A, B, and C 
coefficients of the line connecting two points. "Two-point-line," 



MAKIN -- a b c J 



Pushes to stack the A, B, C representation of the imaginary me on which 
e armadillo is sitting and along which it faces. Useful in finding where tne 
armadillo would intersect a line along its current path. ( Make- line. / 

' f 

\ 

NAMELN xxx, ( a b c — ) 

xxx: ( a b c ) 



Creates the word xxx. When xxx is executed, it returns the values d c 
to the stack. 

THISLM xxx, ( — ) 

xxx: ( — a b c ) 

Creates the word xxx. When xxx is executed, it returns the A B and C 
values of 'the line that the armadillo was sitting on and facing along when xxx 
was created. ("This-line.") 

2LNX ( al bl cl a2 b2 c2 — x y ) 

Given two lines on the stack in a b c form, 2LHX returns the point of 
intersection of the two lines. If the lines are parallel or if their point of 
intersection is very distant and would cause coordinate^ overflow, 2LNX win 
leave -1, -1. ("Two-line-intersection" or "Tv«-1 ine-X. " ) 
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val GRAPHICS GLOSSARY 
Part III of III 

Options 

The basic comma?ids 3, followed by the cominands that operate the "switches" on 
options^ are described below* 



DRAW 

Standard option: Move the armadillo n units in the direction in 
which it is heading* Draw that portion of the line of travel of the 
armadillo^ including the first pointy that falls within the current 
window^ using the current PEN value. 

ON DRXOR: XOR pixels with the PEN color instead of overwriting 
them with the ^^^.H color„ 

ON DRUNT: Stop on hitting a pixel of the value selected with the 
last DRBAK or PHBAK commands whichever was last, 

OFF DRUNOT: DRUNOT makes a difference only when ON DRUNT has been 
executed. When DRUNOT is off and DRUNT is on, lines halt upon hitting 
a pixel of the last color set by DRBAK or PHBAK, whichever was executed 
last. When DRUNOT is on, which is the default case, and DRUNT ison- 
also, lines will halt upon, hitting a pixel not of the last color set by 
DRBAK or PHBAK^ whichever was executed last. 

OFF DRIST: Don't draw the first point in a line. Useful when 
drawing connected lines after ON DRUNT so that the last point of a line 
wonH be interpreted as the stop condition of the next line. See 
''Stroll ing* * J' for an example* 

DRAWTO ( X y ) 

Standard option:' Move the armadillo to x y and draw that portion 
of the line of travel that falls within the current window ^ using the 
current PEN color register. 

ON DRXOR: XOR pixels with the PEN color instead of overwriting them 
with the PEN value. 

ON DRUNT: Stop on encountering a pixel of the color selected with 
the last DRBAK or PHBAK cofumand, whichever was last. 

OFF DRUNOT: DRUNOT makes a difference only when ON DRUNT has been 
executed. When DRUNOT is off and DRUNT is on, lines halt upon hitting 
a pixel of the last color set by DRBAK or PHBAK-, whichever was executed 
last. When DRUNOT is on, which is the default case, and DRUNT is on 
also, lines will halt upon hitting a pixel not of the last color set 
by DRBAK or PHBAK, whichever was executed last. 
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DRAWTO (cont^d) 



OFF DRIST: DonH draw the first point in a line. Useful when 
drawing connected lines after ON DRUNT so that the last point of a 
line won^t be interpreted as the stop condition of the next line* See 
'^Strol 1 ing* * J' for an example* 

7DRSTP ( -~ f ) 

?DRSTP is a quan whose value is adjusted after each DRAW and DRAWTO* 
If 7DRSTP is true (non-zero) then the last DRAW or DRAWTO was terminated 
because ON DRUNT had been executed and the line-drawing routine encountered 
a pixel whose value was that selected by the last DRBAK or PHBAK command, 
whichever was last. ?DRSTP is useful in conjunction with RELOC. 

RELOC { ) 

Relocates the armadillo to the location of the last pixel drav^n by 
the last DRAW or DRAWTO conmand* If no points were drawn by the last 
DRAW or DRAWTO command^ (e*g«, if the line fell entirely outside the 
current window) then the armadillo is not moved. RELOC is useful in 
conjunction with ON DRUNT. See example in ^'Stroll ing. * J' RELOC is in 
the DILLO vocabulary « 

DRAWLN ( column row ) 

A system routine ^ not intended for general use* This high-speed rou- 
tine replaces the DRAWTO routine in valFORTH lA^ which used the same OS 
routine as the BASIC DRAWTO command. DRAWLN is in the DILLO vocabulary. 

PHIL in--) 

Standard option: Move the armadillo n spaces in the direction it 
is heading, and ... 

As in DRAW, color that portion of the path of travel with the PEN 
value* Also perform a fill to the right during the time that the arma- 
dillo is in the current window. The color of the fill is set either by 
the PEN value or the PHPEN value, whichever Vs^as declared last* The fill 
will always terminate on reaching the edge of the current window if it 
has not been terminated prior to this event « The fill will also termi- 
nate on reaching a pixel that is not background color. In the standard 
option 5 the command ON PHUNT (''phil untiV) has been executed so that 
the fill will stop on the pixel of color register set by PHBAK ^ and 
0 PHBAK has been executed so that the actual background register ^ 0» 
will also be used as the phil ^^background'' register. OM RPHIL and OFF 
LPHIL have been executed so that the fill will be toward the right only. 
ON PH-i-DR has also been executed so that the line of travel of the arma- 
dillo is drawn in addition to the fill operation* 
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PHIL (cont^d) 

Example Options: 

1 PHBAK: The fill will now stop on reaching a pixel of color 
register 1 (in this example) a. or the edge of the window. 

ON PHUNOT 2 PHBAK: The state of PHUNOT only matters if ON PHUNT 
has been executed. The effect of PHUNOT ("fill until not'^) is that the 
fill will now stop on reaching a pixel MOT of color register 2 (in this 
exampleK or on reaching the edge of the window^ 

OFF PHUNT: Turning off fill -until means that now the fill will ON 
stop on reaching the edge of the window. 

OFF PH+DPv: Turning off PH-^DR means that now the routines will not 
draw the line the armadillo is moving along, and will just fill as 
indicated. 

ON LPHIL: Now the routines will also fill to the left. 

OFF RPHIL: Now the routines will not fill to the right. 

ON PHXOR: Now the routines will XOR the pixels with the PEN or 
PHPEN value, whichever was last declared, rather than replacing them 
with it. 

PHILTO ( X y ) 

Move the armadino to the point x y. Then proceed as in PHIL. 



XLn-12 



Options : 

(All words below take a flag stack argument ^ and leave none.) 



Switch E 


lefaul t 




OFF 


RPHIL 


on 


Enables right fill 


Disables right fill 






with PHIL, PHILTO 


with PHIL, PHILTO. 


LPHIL 


off 


Enables left fill 


Disables left fill 






with PHIL, PHILTO. 


with PHIL, PHILTO* 


DRXOR 


ott 


DRAW, DRAWTO will 


DRAW, DRAWTO will 






xor pixels with 


replace pxls with 






1 ine color. 


line color. 


PHXOR 


off 


PHIL, PHILTO will 


PHIL, PHILTO will 






xor pixel s with 


replace pxls with 






fill color* 


fill color. 


DRUNT 


off 


Enable draw-^until 


Disable draw-urrtil 






functions* 


functions. 


PHUNT 


off 


Fill to edge of 


Fill until encounter-- 






window or to dest. 


ing halt pixel cond 






p 1 xe 1 « 


set by PHBAK, PHUNOT. 


DRUNOT 


on 


With DRUNT on. 


With DRUNT on, 






DRAW, DRAWTO draw 


DRAW, DRAWTO draw 






until hit color set 


until hit not color 






by DRBAK, PHBAK. 


set by DRBAK, PHBAK. 


PHUNOT 


on 


With PHUMT on. 


With PHUNT on, 




PHIL, PHILTO fill 


PHIL, PHILTO fil 1 






until hitti ng color 


until hitting not 






set by PHBAK. 


color set by PHBAK. 


PH+DR 


on 


PHIL, PHILTO draw 


PHIL, PHILTO don^t 






line as f i 11 i nq . 


draw line as filling* 


DRIST 


on 


First point of 


First point of 1 ines 






lines is drawn. 


is not drawn « 


PHCRNR 


off 


PHIL 5 PHILTO perfonn 


No corner checking* 






corner checking ^ 








armadillo must be 








moving vertically* 




DINIT sets 


all switc 


:hes to their default values. 
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Screen Dump 

This graphics 8 screen-to-Epson/Graftrax dump routine was contributed by William 
Volkj who also collaborated on other parts of this package. 

To dump graphics 8 screens (split or full)^ load this code and execute with 
GRDUMP. Some samples are shown below* 



0 

1 



D 

7 
B 



1 '":> 
13 



1 



^ »^ *^ C*wV^ 



BRDIJHP 



s DHPCOL DILLO 
-1 Wh4DB DO 

DUP SB a 

1 BYT/Lr-4 * ^- ca 

DROP r, 



p 



10 s. GRPLT DILLO 



1 i 



H 



27 EMIT 75 EMU 



WNDT 



1"^ EH IT 0 



Scr # 

0 ( DxllQS 



^ BOX -KITE 
8 GB:. 



10 



1 

13 
14 
15 



50 0 



DO 



I TCIRCLi 



60 60 eOTO 5 QAJBE 
DRXOR 1 PHBAK l^IP 
DINIT ^ 




Scr 



0 ( Dill^os GRDUHP 



w 

4 

6 

7 
8 
9 

10 

1 'P 
1 3 



1 



nuurir DILLO 
( turn off screen 
PFLAB ^ 2 PFLAG 
i set line/ inch - 9 on 
27 EMIT 65 EH IT 8 EHIT 
( dump the screen 
CR BYT/LN 0 



GRPLT I DHPCOL CR 



on printer) 



LOOP 
27 EH II 
CR CR PFLAB 



65 



12 EHIT 



«5 
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Interfacing to Custom Display Lists 



The advanced user v^ishing to interface valGraphics to a custom (noii'-GR*) 
display list should recognize that any area of display memory in v^hich valGraphics 
will be required to draw must be continuous* Thus^ for examples, if a 4K memory 
boundary is crossed^ necessitating a jump instruction in the display listj, the 
user must ensure that display memory itself crosses the 4K boundary smoothly* 

The location 88 decimal was used by the Atari OS to point to the byte in 
display memory corresponding to the upper left corner of the display, and has 
been adopted for the same purpose in this package* The first thing to do, then, 
is point 88 to the address in display memory that valGraphics should treat as 
the upper left corner of its dravn'ng area* 

The second step is to set up a base window^ much as the GR* provided in 
this package does. Use the word DEFBAS to do this,, as described in the glossary. 
Note that this word expects its arguments as numbers of pixels^, and that 'Heft^' 
and ''top^' will usually be 0* 

Finally^ you need to tell the system what graphics mode you^re drawing in. 
The word UGR* (for ''user GRJ') is provided for this purpose. Give it a number 
from 3 through 12^ and it will set up quans like PX/BYT and so on. UGR. recog- 
nizes if you have set up for wide or narrow screen widths, also^ and acts accord- 
ingly. 

Do BASV^ND and the armadillo is centered ^ pointed up^ and ready. 
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A note on QUAN structures 



The ^'quan'^ is a new FORTH data structure, developed at Valpar^ and being intro- 
duced in this package « Quans were devised to cut down on wasted memory and 
runtime encountered when using the ^^variable'* data structure. Quans work as 
follows: {Advanced users may want to follow along in the source code for these 
structures al so* ) 

Defining a quan: 

QUAN BINGO 

Note that quans do not take initial values • This fonn was chosen to allow for 
simpler upgrading to target-compiled code later on. 

Giving a quan a value: 

1234 TO BINGO 

Note that since TO is immediate, *'T0 BINGO'^ compiles to only 2 bytes instead 
of the 4 bytes that would be required if BINGO were a variable (i.e.. BINGO 1 

Getting a value back from a quan: 

BINGO 

Simply saying the name of the quan will leave its value on the stacks in this 
case 1234« In this way,, quans act like constants. BINGO above also compiles to 
only 2 bytes instead of the 4 required to fetch if it v^ere a variable (i.e.s 
BINGO @). 

Getting the address of the data in the quan: 
AT BINGO 

This will leave the address of the first byte of data in BINGO on the 
stack, or compile the address as a literal if encountev^ed during compilation. 
(AT is immediate.) This is useful for a variety of purposes in general 
programming and in interfacing to machine language routines • 



Advanced users: 

The FORTH 83 Standard appears to lean tov^ard ^'non-state-smart" words, which 
is proper, for target-compiled applications. We expect to support both ''state- 
smart'' and ''non-state^ smart'' versions of various words, as appropriate for 
different users. 

Note that while 

15 AT BINGO ^! and 15 BINGO TO BINGO 

accomplish the same task and take the same amount of memory, the first version 
is faster by one primitive nest. 
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The most significant internal feature of quan is that it has 3 cfa^s instead of 
just the one common to most FORTH words* This Initial 4 byte disadvantage is 
overcome at the second use of a quan^ and so poses essentially no problem* 
CQUAN, 2QUAN0, 3QUAN^ etc., have also been implemented^ and the user may have 
some fun puzzling these out before they are published elsewhere. Note that a 
2quan takes 2 arguments from the stack when used with TO^ and leaves 2 v^hen 
used alone. When used with AT^ a 2quan still leaves the address of the first 
byte of its ''parameter fields'* as does QUAN. Also^ when defining CQUAN it is 
probably a good idea to still allot 2 bytes for data^ so that -^1 can be used 
v/ithout fear of negative stack arguments* Another new defining structure is 
called ''FLAG J' Flags have only two cfa^s^ dropping the one that supports the 
^'AT'' function* Flags keep only one byte of data^ a flag; hence they are 3 
bytes shorter than quans. Flags would not be used in this package enough to 
justify the additional codej, but may be v/orthwhile in other applications* 

Higher speed and cleaner array structures may also be implemented using 
the quan strategy^ and may be included in a future release of our utilities- 
editor package* (This would be made available to current u/e owners at a 
price-difference-plus-handl ing charge. ) 

The word VEGT has also been introduced in this package* It has two cfa's, and 
replaces the rather cumbersome variable-based vectoring procedure » 

' SOMEWORD CPA SOMEVARIABLE ! and 
SOMEVARIABLE @ EXECUTE 

with the cleaner 3 faster ^ and memory --shorter 

' SOMEWORD CFA TO SOMEVECT and 
SOMEVECT 
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(intentionally left blank) 
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QUICK TRIG 



Since floating point trigonometric operations on the Atari machines are 
rather slow and provide accuracy unnecessary for many appi i cations s this package 
provides integer versions of. sine? cosine^ and arctangent functions that run 
much faster than their floating point cousins, 

QSIN and QCOS expect scaled radian arguments in the range -^-SMie^ (-^-pi)^ 
with 10000 representing one radian^ 

Similarly, QATN returns scaled radian arguments in range ^-15708 ("i"-p1/2). 
QATN accepts arguments in the full single number range, again interpreting 10000 
as 1. This at first glance seems to be a significant limitation on QATN^s input 
range but is circumvented by the existence of the more useful QATN2. QATN2 is 
a four-quadrant arctangent function* It accepts two stack arguments ^ which 
may be thought of as ''delta-x'' and ''del ta-y^'^ and uses these arguments to 
construct a value to be used by QATN. QATN2 then performs sign corrections as 
necessary and returns a value in the range -^-31416, QATN2 is what is actually 
used in graphics work, and is used in the word TURNTWD (''turn toward^'} elsewhere 
in this package. 

For user convenience, the words ->QRD and ->QDG are used to convert from 
scaled-degree arguments to scaled radian arguments and back again. 



16 K/ ( d n ) 

This is a special -purpose high-speed routine that may find other uses. 
It divides a double number by 16384 and leaves a single number result. 
Used to speed quick-trig functionso 

QSIN ( scaled-radians scaled-sine ) 

Takes a scaled-radian argmiient ( range -^-31416 ) and leaves the scaled 
sine in the range -^-10000* 

QCOS ( scaled-radians scaled-cosine ) 

Takes a scaled-radian argument { range 4- --31416 ) and leaves the scaled 
cosine in the range 10000* 

QATN ( scaled-argument scaled-radians ) 

Takes a scaled-argum.ent ( range 0 to 10000 ) and leaves the scaled 
arctangent in the range +-15708 ("^-pi/2, scaled). 

QATN2 ( "delta-x'' ^'delta-y'^ scaled-radians ) 

Assuming that the ''x'' axis points toward zero radians (zero degrees) 
on one end and pi radians (180 degrees) on the other, QATN2 leaves the 
angle ( range +-31416 ) between a line from the origin to the point 
( delta-x^ delta~y ). 
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Counterclockvrise angles are positive. 



708 

scaled radians 



+31300 approx 
31416 

-"31300 approx 

V 



X 

>5 



-15708 
scaled radians 



X axis 



0 radians 



In the illustration above ^ arctan2 of ( delta-x^ delta-y ) would be 
approximately -2 A radians^ or -21000 as computed by QATN2. 

( scaled-degrees scaled-radians ) 

Takes a scaled-degree arguioent ( range -^-ISOOO ) and converts it 
to a scaled"-radian argument ( range 31416 ), 



'>QD6 



( scaled radians scaled-degrees ) 



Takes a scaled-radian argument ( range +-31416 ) 
to a scaled-degree argument. ( range 18000)* 



converts it 
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14 ELSE No FP on stack. . . " 

15 ENDIF ; 



Screen s 1 54 

0 ( Fp ext : CFC-3 FPICK FROLL ) f 
1 

2 CODE <F@) ( system: — Cfp3 ) 

3 HEX CA C, CA C, CA C, CA C, 



Cfl C, CA C, 4C C, NEXT 



DCX 



4 

5 

6 s FPICK ( fp. . f p n — fp. . f p f p) 

7 1 - 6 ♦ SP@ 2+ SWAP 0+S 
a 6-6 CMOVE (F(?) ; 

9 

10 s FROLL < f p. . f p n — f p. . f p ) 

11 0 MAX -DUP 

12 IF DUP 6 # >R FPICK SP@ 

13 DUP 6 + R> <CMOVE FDROP 

14 ENDIF I 

15 =-> 



■FLOfiT 



> 



Screens 155 
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2 ! -FIX < fp — r, ) 

3 FP -32768 FMAX FP 32767 FMIN 

4 FDUP F0< 
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0 ( Trigs CflTNJ ) 0 
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e : CfiTN) < fp — fp ) 2 

3 FDUP FPl F> 3 

4 IF 1/FP 2 ELSE 0 END IF >R 4 

5 FDUP FP .267949192 F> 5 

6 IF FDUP FP 1. 73205081 F* FPl 6 
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14 I 1 > 14 
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valFORTH 

SOFTWARE SYSTEM 

Text Compression and flnto Text Formatting 

Evan Rosen 

Software and Documentation 
©Copyright 1982 
Valpar ioteroational 

Purchasers of this software and documentation package are 
authorized only to make backup or archival copies of the 
software, and only for personal use. Copying the accompanying 
documentation is prohibited. 

Copies of software for distribution may be made only as speci- 
fied in the accompanying documentation. 
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VALPAR INTERNATIONAL 



Disclaimer of Warranty 
on Computer Programs 



All Valpar International computer programs are distributed 
on an ''as is'' basis without warranty of any kind. The total 
risk as to the quality and performance of such programs is with 
the purchaser. Should the programs prove defective following 
their purchase, the purchaser and not the manufacturers distributor, 
or retailer assumes the entire cost of all necessary servicing or 
repair, 

Valpar International shall have no liability or responsibility 
to a purchaser 5 customer^ or any other person or entity with 
respect to any liability, loss, or damage caused directly or 
indirectly by computer programs sold by Valpar International, 
This disclaimer includes but is not limited to any interruption 
of service, loss of business or anticipatory profits or conse- 
quential damages resulting from the use or operation of such 
computer programs. 

Defective media (diskettes) will be replaced if diskette(s) 
is returned to Valpar International within 30 days of date of sale 
to user. 

Defective media (diskettes) which is returned after the 30 day 
sale date will be replaced upon the receipt by Valpar of a $12,00 
Replacement Fee« 
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NOTICE 

TEXT COMPRESSION AND AUTOMATIC TEXT FORMATTING 

CODE TRANSPORTATION 



The routines in this package have been coded and presented so 
that they may be readily transported to other fig-FORTH systems 
on machines other than the Atari 400/800. This is in response to 
numerous requests to this effect from various '^adventure'' game 
authors. We note^ however, that the same restrictions apply to 
the software in this package, whether run on the Atari 400/800 
machines or any other: 

First 5 the code may ONLY be used in either an AUTO'd system as 
described in val FORTH LI documentation, or in a target-compiled 
s ^j/ s t e IT J » 

Second 5 any software written with these routines ^ on any machine ^ 
must contain the acknowledgement of Val par International as the 
source of the code, as described and detailed in valFORTHU. 
documentation. 

Other distribution may be construed to be a violation of 
applicable copyright laws. 
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Overview 

This package attempts to fill at least two common needs of the progranmer who 
does verbal /interactive programming. 

First, a group of automatic text formatting routines is provided that allow 
two different approaches: 

non-wrap Vine formatter to both the video display and the 
printer^ including variable-margin capability and inverse 
video options and 

*A versatile window fortiidtting system » with scroll ing^ color and 
inverse video options as appropriate, and window naming. Notes 
on the creation of window types with different ''generic" parameters 
are also included. 

In both modes described above, user options of left-^ right-, center-^ or 
fill-justification are supported, as is numerical output formatting. 

Second, two different approaches to the problem loosely termed ''text 
compression'' are implemented: 

The first is intended for use in programs where run- time retrieval of text 
stored on disk is allowable, and provides a set of general virtual -memory 
operators for the creation and retrieval of messages from disk, A simple 
encryption scheme is provided as a (working) example for the software 
developer who wishes his or her messages to be not easily readable from disk 
withs for instance, a Forth screen editor. In addition, alternate points in 
the virtual memory routines are indicated where deeper encryption routines 
might be employed. Routines are provided for virtual memory oiessage program- 
ming on both one- and two-drive development systems. 

The secona set of text compression routines is intended for use in ''in memory'' 
appl i cations 3 such as cassette-booted programs, that do not have access to 
disk for message retrieval. In this case the most compact code practical is 
desired, and a system built around some of the basic aspects of Forth' s compac 
threaded-code structure is provided* 

Finally, v^e note that the autoformatting and text compression "''^'t1es are 
designed to be used in most any of their possible different combinations,. 
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STROLLING THROUGH TCAF 
(Text Compression and Autoformatting) 



The organization of this disk is slightly different' from the others in this 
series. While a table of contents may still be found on screen 170 as usual, 
in this package the ''load chain/' starting on screen 166 5 will get far more use. 
In general v/hen one wishes to load a TCAF development system with a specific set 
of capabilities^ one makes slight adjustments to the load chain option screen 
and then simply loads the first screen in the chain. The chain does the rest. 

To start off, first prepare two blanks formatted disks. Make your normal working 
copy of TCAF on the first disk and leave it un-wri te~protected. The second disk 
will be used a little later. 



Autoformatti ng 

In order to select options you will want to make changes to the load chain 
option screen « This may be found by locating the load chain in the directory 
on screen 170^ and then scanning through the screens in the chain until you 
find the one marked '^options'' in its first line. (This is on or near screen 167.) 
Look at this screen, and see that most of the lines have a left parenthesis in the 
left column, followed by a LOAD command and a comment. By removing selected 
left-column left parentheses you can activate various options. Right now on your 
working copy use an editor to remove all of the left-column left parentheses 
except for the one on the line that says "text compression J' (Text compression 
uses transient structures and will be discussed separately.) And^ of course^ 
don't remove the one in the comment at the very top of the screen. OK, now 
boot a bare val FORTH 1.1 system, and load in the debuggers and swap in the TCAF 
disk, do MTB as usual ^ and load the first screen in the load chain on this disk. 
(Probably 166. ) 

When the prompt comes back, type 
ON STACK 

since you HI want to watch the stack. Then type 
TYPEOUT 

(Failure to execute this initialization word may cause a crash as you try to 
use words like ^TYPE later onO This command activates one of the two format- 
ting modes. This mode 3 called "'type-out mode,'' since it uses the word TYPE as 
its actual output word., can send formatted type to either the display or the 
printer. The other formatting mode is activated by WINDOUT and is called 
''window-out mode.'' It will be discussed a bit later. 



Now type 

Here is a simple example of the formatter's function J' 

using lower case as shov^n, and notice that an ddclress^ actually PAD, is left 
on the stack. Mow reactivate upper case (press Shift and Caps-Lowr) if you 
haven't already, and type 

COUNT 

The address was bumped by one, and the string count was extracted from the 
first byte in the string created by and placed on top of stack. All normal « 
Now type 

2DIJP CR CR TYPE CR 

and see that the typed output wraps around as usual . Now try 

2DUP CR CR nVPE *CR 

The word ''formatter's'' is no longer split. Let's try it again but with 
different formatting. Type 

CTRJST (''center justification'') 
2DUP CR CR ^TYPE *CR 

How about 

FILJST ("fill justif ication^') 
2DUP CR CR nVPE *CR 

The text is now spread or ''filled" to take up the whole space between the 
margins. The last mode is 

RGTJST (''right justification") 
2DUP CR CR 4yPE ^CR 

which gives the expected result. Finally, type 

LFTJST (''left justification,'' the default mode) 
2DUP CR CR ^TYPE "^CR 

and we're back where we started. 

Well, what precisely is happening? The 2DUP each time is there of course 
to reproduce the two stack arguments ^ adress and county for use by *TYPE 
(or TYPE), The tvm CR's each time are merely to space the result down the 
page a bit, and make it start at the left margin. As v^e will see^ these two 
CP's will not generally be necessary in normal programs. The TYPE we'll assume 
you already know about. If not, look it up in the 1.1 glossary. While you^re 
looking at TYPE'S definition you might refresh your memory about how to allow 
it to type inverse video characters also, A short discussion about this follows 
TYPE'S definition, and we may need this feature later on, OK^ what about ^TYPE? 
^TYPE, like TYPE^ takes a count and address on the stacks but instead of 
routing the text directly to an output device ^ ^^-TYPE sends it instead to a 



holding ouffer, located at BUF, where it accumulates. As each character is sent 
to the buffer it rnay be colored, Inversed^ or capi tali zed ^ depending on whether 
these options are loaded and appropriate. -Since we loaded all three of these 
options we'll try them presently. When the buffer at BUF overflov/s with a non- 
blank, character, ^TYPE formats the line (if any format routines were loaded) 
and then sends it out via a vect called '^XMTLN, Roughly^ a vect is a word that 
can be '^assigned'' the meaning of a second word so that when the vect 1$ executed 
it acts precisely like the word last assigned to it.) ''XMTLN'' in ^XHTLN stands 
for "transmit line/' The mrd ^'XMTLMP Is currently assigned to *XMTLN and is 
located, in the first release, on or near screen 73. ^XHTLMP^ and so now "^'XMTLM^ 
types out the buffer at BUF and increments a line counter if the printer is on 
and does a few CR's if a printed page is full. After the buffer is outputs 
cleared, and the overhanqing characters have been moved to the bealnnino of the 
buffer, ^TYPE continues to consume the character string. In general there will 
always be something in the buffer unless it has been cl eared « "^CR pushes the 
last of the text out of the buffer to the output device,, and then clears and 
initializes the buffer vrith BUFINIT. You probably won't have to do BUFINIT 
yourself unless you are experimenting with the internals of the program., To 
illustrate this point about ^XR^ type 

2DUP CR CR nVPE 2DUP nVPE *CR 

This time 5 since we didn't do "^CR after the first ^TYPE^ the next ^TYPE tacked 
its text riqht on to what was left in the buffer, 

Novi type 

SP! (we'll make a new rnessaqe) 

: SHOW 2DUP CR CR *TYPE *CR ; 

" here is another message for another purpose." 

COUNT 

CTRJST 

CAP SHOW 

SHOW 

See what CAP does? Now try 

ON CAPS 
SHOW 

OFF CAPS 



And what about inverse video? Since *TYPE uses TYPE and TYPE as it now stands 

will not print inverse video (it strips the high bit before sending a byte out) 
'we'll need the modification discussed in the 1,1 Glossarys under TYPE. Here it 
-is, type it in, c a r e f u 1 1 y: 

HEX Fi- ' TYPE 14 + C! DECIMAL 

and then type 

VLIST 

to see an interestiag side note. The high bits of the last byte of (almost) al" 




names are set. This is u^td bj vocaMulary search words. But, back to business. 
Type 

SHOW 

And you get trash. Th1^ 1s because some vvord in VLIST uses PAD for something, 
so your message was ■ - • ■■ jyst a reminder. Type 

SP! (clear the stacH 

Here is yet another ^.^^sage, w ^how other features J' 
COUNT 
ON CAPS 
ON INVIO 
SHOW 

ON INVBK (for ^'inverse background^' ) 
SHOW 

OFF INVID 
SHOW 

2DUP CR ^CR nYPE ^CR ^CR CR 



Play with these ' ngs ror a while if you like. When you're done, do 
SP! 

OFF CAPS 
OFF INVID 
OFF INVBK 

and we'll conti nue> 



Virtual Memory (Disk-stored) Text 

We used the word in exercises above, but it has a serious shortcoming , in 
that it won't digest a string larger than 255 characters since it only keeps 
a one-byte length byte. The vjord X^' (for ''extended quote*') in this package 
allows longer strings i loading from disk> X^' mU not work from the key- 
board. Use XCOUNT with X% and it retrieves the two-byte length count and 
leaves it on top of the stack. There is a demo of X*' on screen 120 « Take a 
look at it if you like and then type 

120 LOAD 

and a short message vn^if ^'ome back as part of the demo. Turn your stack on if 
you We turned it off fu* any reason, and do 

XCOUNT 

OFF CAPS OFF IMVID OFF IMVBK 

FILJST 

SHOW 



L 1 - b 



If you looked at the screen you may have noticed the right-arrow characters 
near the end of the text. These cause a "^CR to be executed at that point in 
the text. See "^EMIT code for details. You can make your ovm control characters 
in a similar fashion, (To type a right arrow character in the val FORTH 1.1 
editor 5 do ESC followed by CTRL-^), Observe also that no was required for 
X'' to cross the screen boundary* X^' will only stop on finding a final and so 
may run right on through a disk looking for one if you forget to put it in. 

Well, X'' is ok, but not as handy as it might be for general programming. Look 
at screen 122 and then type 

SP! 

122 LOAD 

and a demo message will come back again ^ indicating that a new word^ MSGDEMI5 
now exists. This word will actually pull its message text off the disk. Let's 
do it. Do MTB just to make sure it's not cheating , and then type 

CR CR MSGDEHl 

Notice that we didn't use SHOVj this time^ just the message name. The messages 
end with a right~-arrow« N0W5 the method that generates this message, namely 
using a new word, ^ followed by a string and then a terminating and then 
the word M: followed by the message name, does achieve the desired result 5 but 
at the price of leaving the V', '\ M:, and name on the disk along with the 
message. This method is provided only because for those working with a one- 
drive development system it is the easiest^ and does not involve any disk 
swapping during compile time* Hov^ever, for those with two drive systems ^ and 
those with only one drive but also a tolerance for svapping disks every time a. 
message is compiled, the next and last structure in this series is provided. 
It allows fully compact ^ text-only messages to be compiled on the final product ^ 
and also allows encryption of the text. We will first do it the way the one- 
drivers need to. 

Look at screen 124. The 80 ALTINIT command sets up an alternate set of disk 
pointers to start at screen 80, This is where , in our example ^ the text of the 
various messages compiled by this method will be stored on the extra disk we 
formatted at the beginning. Notice that the message starts with X^' again. 
Hence J v^e see that it will first be assembled at PAD before being sent elsewhere. 
Mow look at screen 125. There's the terminating , the defining word^ MSG:, 
and the message name 5 and a short message with This final message is just 
there for convenience in this demo and is not needed in general. Type 

124 LOAD 

and when it tells you to put in the destination disk, swap in the extra blank 
disk you formatted, then press START as directed. At the next prompt 5 swap back 
and press START again. When using this method you must be very careful not to 
reverse your disks or you may wipe out part of your source disk. 
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Well, the message is nov^ written to the second disk on screen 80, and the 
word MSGDEM2 knows where to find it. Let's take a quick look to see that it's 
really there. Type 



to empty the buffers, and then i>v/ap disks again (so that the destination disk 
is in the drive) and do 80 LIST, and then 81 LIST. There's the message- The 
first tv^o strange bytes on screen 80 are the count » Now do 

MTB CPs CR MSGDEM2 

and watch the routines pull the message from the disk. While we're here, 
let^s send this to the printer. But since your printer may have characteristics 
different from the printer this package is initialized for, we want to adjust a 
couple of things. The first item is a quan named PWID, This is the actual 
number of columns your printer has. The default value is 80, To change it to 
96 5 for example, type 



The second item 1s the quan PRTWID which is the width of the area you'd like to 
print to. The default again is 80. To set 1t to 60, say, type 

60 TO PRTWID 

The third item is how far you'd like to indent. This is the quan PR.TIND and 
its initial value is 0, To set 1t to 10 type 

10 TO PRTIND 

Final Iv, we want to tell the formatter to send its output to the printer now, 
so type 



{The default setting was to the video display, and will be called back by VID:) 
Is your printer ready? Let's try it. Type 



Since many printers will get confused if a character with the high bit set 1s 
sent to them you might want to be careful about this. 

Incidentally, the same options are available with the video display. PRTWID 
becomes VIDWID and PRTIND becomes VIDIND. PRT: becomes VID: . There is no "VWID 
since the formatter derives this from the positioning of the margins. (The left 
margin is kept by the OS in the byte at 82 decimal , and the right margin byte is 
at 83. Default are 2 and 39 respectively.) 



MT 



96 TO PWID 



PRT: 



MSGDEM2 
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Any new printer settings only become active when PRT: is executed ^ and like- 
wise with video settings and VID:« 

Try 

20 TO yiDWID 
4 TO VIDIND 
VID: 

CR CR MSGDEM2 

38 TO VIDWID (back to default) 

0 TO VIDIND (ditto) 

VID: (move in new values) 

OK, now swap the source disk back in^ that is, the TCAF working disk, but keep 
the destination disk handy. Let's load a few (six) more messages. Type 

MTB (to empty the buffers) 
126 LOAD 

and follow the prompts. 

As you can see, any large amount of this single-drive compilation could be 
quite tiresome. Do a short VLIST (abort with any of the three yellow console 
buttons) and look at the new messages. Swap in the destination disk^ do MTB^ 
and then try 

CR MO 
CR Ml 
c«» » 



Encryption and 2-Drive Systems 

There are two more features to point out. They are encryption/decryption (e/d) 
and adjustments for two-drive systems. Concerning e/d, look at screen 105, or 
wherever you find the title EN^ DECRYPT or similar, (Do an INDEX if you can^t 
find the right screen easily,) Notice that there is a at the top of this 
screen which is causing it not to load. Remove this arrow with your editor. 
(Since you're going to reload the system in a minute anyway, it's ok if you 
over-write the system to get an editor in. Get one in somehow.) Now on the 
next two screens you should find the words ENCRYPT and DECRYPT in parentheses. 
(DECRYPT is in three times.) Remove the parens to allow these two words to load. 
NoWs you folks with two drives ^ find the screen where MSG: is defined. (On or 
near screen 112). There are several sets of parens. Leave the ones that 
enclose $ENCRYPT and ... $DECRYPT ... alone. Shift only the ones that are 
around OR! or to be around or DSTDSK " and shift the ones around DRO 
o.r to be around or SRCDSK Just to be on the safe side, here's a 
picture of how the screens should look after these changes. 



L T 3 



FOR ONE OR TWO DRIVE SYSTEMS 



Scr # 105 

0 < VrtKtj EN, DECRYPT example ) 

1 

3 



4 8 ENCRYPT ( cl 

5 U7 - DUP 0< 

6 IF 256 + END IF | 
7 

8 s DECRYPT < c2 

9 117 + DUP 255 > 



c2 ) 



cl ) 



10 
11 

12 
13 
14 
15 



IF 



25( 



END IF I 



— > 



FOR TWO DRIVE SYSTEMS ONLY 



Scr 

■ 0 

1 

e 

3 
4 
5 
6 
7 
6 
9 
10 
11 
12 
13 
14 
15 



« 112 

< Vrtxtj ALT*! MSG: 

s ALT* ! 

VRTSflV ALTREC V* I 
ALTSfiV VRTREC | 



< X* 



) 



MSB I 
< »ENCRYPT ) 

{BUILDS DRl i or DSTDSK ) 

ALTBLK , ALT IN , ALT*! 

FLUSH DR0 < or SRCDSK > 
DOES) VRTSAV 

DUP 9 SWAP 2+ © IN ! BLK ! 

V$*EMT ( or ) 

< V*e *DECRYPT X COUNT ♦TYPE ) 
VRTREC ; 



Scr # 106 

0 ( Vrtxtx V*TP V*9 V**EMT ) 
1 

2 : V*TP < — X« C-PAD3 ) 

3 VRTCe DECRYPT NXTVRT VRTC© 

4 DECRYPT NXTVRT 256 * + ; 

5 

6 s V*» ( — X« |[=PAD3 ) 

7 PAD 2+ V*TP DUP PAD ! 0 

8 DO VRTCd OVER Ci 1+ NXTVRT 

9 LOOP DROP PAD ; 

10 

11 i V**EMT ( — X* C«PAD3 ) 

12 VSTP 0 

13 DO VRTCC- DECRYPT 

14 *EMIT NXTVRT 

15 LOOP } — > 



Scr # 107 

0 ( Vrtxt: V«! ) 
1 

e : V*! < X« — ) 

3 DUP 9 2+ 0 

4 DO DUP C9 ENCRYPT 

5 VRTC! 1+ NXTVRT 

6 LOOP DROP ; 
7 

B 
9 

10 

U 
12 
13 
14 

15 — > 
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What this last change does is substitute an automatic disk-shift for the swap 
prompts driven by DSTDSK and SRCDSK. These words are no longer needed and may 
be bypassed later on^ if you're comfortable with the way things are working. 
OK5 nowj although some of you might be able to get these changes in by doing 
some FORGETting and reloading (if you didn^t have to overwrite the system before) 5 
why not just reload the whole (modified) system this time, starting from val FORTH 
LL Don^t forget the debugger if you want it, and remember to initialize with 
TYPEOUT, Go ahead. We'll wait. 

Now you can repeat the exercises from before , starting where you did the 124 LOAD, 
Tv/o drive systems should have the ''destination'^ disk^ the one with the messages 
on its in the second drive, and the source disk, TCAF, in the first drive. Two- 
drive systems should execute DRl (which in FORTH means the second drive, which 
is number 2 on Atari systems) before saying message names so that the code will 
read the right drive« Say DRO to go back to the source-code drive. (Released 
programs will of course not want to say DRl since they will expect the ''game'' 
or application disk to be in the first drive, DRO^ which is default , When you 
are making messages in this way^ be sure to start them high enough on disk that 
your AUTO'd program^ which will actually do the message retrieval , will fit 
under them.) If you look at screen 80 on the destination disk, what youm see 
is that the text is now scrambled. The encryption routine used is a simple off- 
set scheme^ and would be easy to crack for a serious hobbyist, though not for 
the casual user. If you are interested in a higher degree of security, you can 
encode a whole string at a time with more sophisticated routines. A pair of 
names, $EMCRYPT and $DECRYPT, have been reserved for these routines. We don't 
provide any examples, but a modern text on cryptography might be a good place 
to start looking. Anyway, if you use the names $EMCRYPT and SDECRYPT^ and if 
the routines expect an extended string on stack (that is^ one with a two-byte 
count at its front end) then they will (hopefully) snap right into the spot 
designated by the parens. 



Windows 

Windows are rectangular areas of the video display. They are not supported 
on the printer, but are supported in both ''black and white" graphics 0 mode, 
and colored graphics 1 and 2 modes. Windows may be set up on-the-fly or they 
may be given names so that words can call them up readily. The implementation 
provided here may be used as an example and guide, since you may want your 
windows to act somewhat diffev^ently . 

Since it is tricky to interact with a graphics 0 window from the keyboard 
(there is no simple way that we can find to date to create a split-screen 
option) we'll illustrate windows in graphics 1, and so also show how color 
works. Type 

1 GR. 

3 4 10 5 MAKECW 

This makes a Color Window whose upper left hand corner is at the 3rd column 
over, 4th row down (counting the left and top edges as zero), and which is 
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10 characters wide and 5 high. We have messages MO through H5 still available, 
so let's send them to the window. Type 

WINDOUT (counterpart of TYPEOUT} 
OFF CAPS 

0 COLOR MO 

1 COLOR Ml 

2 COLOR M2 

3 COLOR M3 
WCLR 

Note the extra coloration caused by the mix of upper and lower clase. This can 
be canceled by ON CAPS though it restricts the user to two color for the letters 
instead of four. A good practice would be to put all the source text for colored 
windows in upper case. Coloration swi tches in the middle of a message could be 
implemented by control characters similar to the right-arrow character and its 
meaning of *CR. This is done in *EMIT, you'll remember, and you might even use 
a case statement. 

Numerical formatting is also supported, by the words *. and *.R which are 
direct counterparts of . and .R, except that they go through the formatter 
before outputting. Try 

3456 *. *CR 

7890 7 *.R *CR ■ . 

These routines should be used both with WINDOUT and TYPEOUT. Using just . or 
.R will upset the formatting. 

There is also 

2 2 15 8 NAMECW BINGO 

which names a color window with the given parameters as BINGO. When BINGO 1s 
executed it will clear itself and position the imaginary cursor at its the 
upper lefthand corner. By studying the code, this and other performance 
characteristics may be altered. 



Text Compression 

Finally, there is "true" text compression (TC) itself. TC is intended primarily 
for applications where disk access to messages is not available, such as in 
cassette-booted systems. This utility uses Transient structures which you have 
probably come across before in the packages in this series. Hence, all the 
warnings about memory collisions must to some extent apply. The text compression 
utilities themselves' are fairly straightforward to use, but what they do is 
rather comolex. Briefly, TC allows the creation of bits of headerless code 
called "tc~texts^^ that, when executed, put a string onto the stack and then 
jump to the appropriate Forth words, for formatting. These tc- texts come in 
three tyoes in this package, namely, tc-words, tc-suf fixes and tc-prefixes. 
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The general procedure is to: 

(1) Load the text compression routines. 

(2) Define all needed tc-texts, 

(3) Define all words that use tc-texts within themselves. 

(4) Execute DISPOSE which will sever links to all of the 
tc~text creating and compiling structures , leaving 
only minimal, minimal, headerless structures. 

Since (it turns out) we can load the text-compression routines right on top of 
the rest of the code we already have in, let's do that. Look at the screen In 
the load chain which you modified at the beginning of this excursion. It was 
probably 167, Text compression was not loaded at that time. Note the load 
screen for text compression (probably screen 60) and load it. Because this 
section uses transients you cannot use SAVE to create a bootable copy until 
you have executed DISPOSE to break the links to the transient area. In addi- 
tion, FORGET will act a bit odd^ and may cause crashes, so try to avoid using 
It until you have disposed. There are only three new words to learn in text 
compression^ namely, , P= ^ and S=, These words define tc-words, tc-prefixes 
and tc-suf fixes* For example ^ 

W- DOG 
TAIL 
P- SUPER 
S- 'S 

defines five tc-texts. Type in the five definitions above and then type 

DOG DOG DOG DOG DOG CR ^CR 

SUPER DOG CR ^CR 

SUPER DOG 'S TAIL ! CR ^CR 

The justification, capitalization, coloring, window output, and other options 
will also function with tc-texts. 

Obviously 3 there is potential for numerous word-name conflicts between tc-texts 
and FORTH. The punctuation marks, for instance P- . P= , P=^ ! and so on all 
are desirable and all already exist in the FORTH vocabulary. Hence the three 
defining words for tc~texts automatically put the words they define into a 
separate vocabulary named In addition, the name ! (Shift-^) has been 

assigned as an alias for FORTH to shorten source code and ease typing. For 
instance 5 one might have a FORTH word like: 

: ?TL ( flag ) 

IF A__DOG_'S JAIL J SPHERE ! ^CR I 

ENDIF ; 

By going into the vocabulary the tc-text ! was interpreted properly, 
instead of as the FORTH Similarly, by going back into the j ( FORTH ) 
vocabulary, the word : was interpreted as the FORTH ; rather than as some 
prefix that might have been in the ^ vocabulary. 
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Several more points are worth noting: 



* If you are programming short phrases that do not generally run together, 
you can save some memory by defining a <BUILDS DOES> construct that always 
attaches the "^CR to the end of the operation, thus saving two bytes per message, 
with the new <BUILD DOES> that loaded with this package. 

* If you want to create new types of tc-texts^ such as one to deal with 
problems like SHINE IN6, just follow the examples of how the v^ords P= S™ are 
constructed » Smart prefixes that strip trailing vowel s^ for example, would not 
be difficult to code^ but v^ould not necessarily be worth the memory cost. How- 
ever 5 1n a very large application it might well be worth coding a large number 
of spelling rules. 

* To create tc-texts that contain blanks 5 create a control character that is 
not printed 5 and use this as the blank. The character we suggest for this is 
the underline 5 whose ATASCII is 95. Note how the right-arrow, ATASCII 31 5 1s 
picked off by '^EMIT. Do the same for 95 ^ only make it perform ^SPACE instead 
of ^CR as right-arrow does, 

* Some tc- texts will get rather long, and will be cumbersome in source text. 
They can be provided with a no-cost alias. For example, say we had 

W- A_DOG_WITH^A_BONE 

We could then add 

TRANSIENT 

: D&B ^ [COMPILE] A DOG WITH A BONE I ; IMMEDIATE 
PERMANENT 

This alias would be removed by DISPOSE, as would , of course, the tc-text name 
A DOG WITH A BONE5 leaving only the headerless tc-text itself. 



* As set up, the Transient system is 4000 bytes below the display list. This 
may not be enough for some applications. The way to find out how much room you 
have left in the transient area is to type 

TRANSIENT 741 @ HERE - U. PERMANENT 

You might even define a word to do this. Call it TFREE, A trap in CREATE, 
and so also in : is designed to keep you from actually running into the 
display list by simply aborting the definition in progress when there are 
less than 128 bytes left. 

^ Finally, always remember to DISPOSE when you're done with the transients * 
If you forget and do SAVE you will not get a w^orking system. 

This system of compression is quite compact , costing only two bytes to produce 
output from a tc-text. The cost in memory of producing the tc-text of a word 
of n letters 5 (not even counting the trailing blank) is only n + 2. 
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TEXT COMPRESSION AND AUTO TEXT FORMATTING GLOSSARY 



Basic Commands 



Like , but sends string to the active f ormatti ng/outputti ng 

routines. 

*TYPE ( addr count ) 

Like TYPE, but sends string of count characters starting at addr to 
the active f ormatti ng/outputti ng routines. 

*CR ( — ) 

Somewhat like CR in that it causes a carriage return. In 
addition, *CR first forrriats and flushes the buffer to the output device, 
and clears the buffer after doing so, 

*EMIT ( c -- ) 

Like EMIT except sends the character c to the formatter, instead 
of directly to the output device. 

*SPACE ( — ) 

Sends a single character of value in the quan BKGND to the 
formatter 5 through ^'EMH\ 

*SPACES ( n — ) 

Sends n characters of value in the quan BKGND to the formatter, 
through *EMIT. 

*BACKS { ) 

Similar to action of delete key. Backs up the formatter buffer 
pointer, BPTR, one location and fills nev^ location with BKGND value. 

RGTJST ( — ) 

Sets up formatter for right justification. 

LFTJST ( ) 

Sets up formatter for left justification. 

CTRJST ( -- ) 

Sets up formatter for center justification. 
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FILJST { ) 

Sets up formatter for fill justification. 

INVID ( f ~- ) 

ON INVID means text will be output in inverse video; OFF INVID 
means normal video, 

INVBK { f ) 

ON INVBK means background of text will be output in inverse 
video* OFF INVID means normal video. 

CAP { ) 

Causes capitalization of the next byte processed by *EMIT or ^TYPE. 

CAPS ( f ) 

ON CAPS means subsequent formatted text will be capitalized if 
lower case* OFF CAPS means text v^ill be printed as-is. 

COLOR { b ) 

New color register b will be used for color of subsequent text 
output to windows in Graphics modes 1 and 2. 

TYPEOUT ( ) 

Initialization routine for the formatter. Either TYPEOUT or 
WINDOUT must be executed before the first attempt to output text from 
the formatter or the system may crash. TYPEOUT directs the formatter 
to use TYPE as its actual output routine^ allowing output to the display 
screen or printer. 

WINDOUT ( ) 

Initialization routine for the formatter. Either TYPEOUT or 
WINDOUT must be executed before the first attempt to output text from 
the formatter or the system may crash, WINDOUT directs the formatter 
to use window routines for output. A window must be created before 
attempting to use window output or the system may crash « See also 
NAMWND. 
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QuanSs vects, and sub command s 

FDIR ( 4-^4 ) 

A quan that holds the next direction to be used by the fill- 
justification routines when padding the text in the formatting buffer 
with blanks. 



A vect used to point to the routine that performs whatever 
justification action is current. Altered by LFTJST, RGTJST, CTRJST, 
and FILJST, 

BKGND ( n ) 

Quan which holds the value of the background character to be used 
when clearing the formatting buffer. Generally either 32 (blank) or 
160 (inverse blank J See INVBK, 

EOB ( ... n ) 

Quan which points to the location in the formatter buffer 
corresponding to the last allowable position in the current output 
width. Set up by various routines Including PRT:, VID:, and window- 
creating routines. Stands for ''end of buffer J' 

BPTR ( n ) 

Quan which points to the next available location in the formatter 
buffer. May be user-altered for special purposes ^ but should not be 
placed lower than BUF or higher than EOB, Stands for ''buffer pointer,'' 

WWID ( n ) 

Quan which holds width of field to which text will be output. 
Used to set up EOB, which is actually used by the foniiatting routines. 
See EOB. Stands for ''window width'* though windows as defined elsewhere 
need not exist. 

( - . 

A vect that points to the routine to be used to move text from the 
formatter buffer to the output device. Set up at present either by 
TYPEOUT or WINDOUT. Stands' for "transmit line." 

! ) 

\ J 

A label that points to the beginning of the formatter buffer area. 
This area need only be three bytes longer than the longest line to be 
formatted. 

INVBK ( ON or OFF ) 

When ON 5 background character output by formatter in 0 graphics 
mode will be inverse video blank. When OFF, this character will be 
normal video blank. Sets up BKGND. See BKGND. 
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BUFCLR ( ) 

Fills the formatter buffer with BKGND, 

BUFINIT i — ) 

Fill the formatter buffer with BKGND, sets up EOB using WWID 
and BUF9 and points sets BPTR equal to BUF, 

niNT ' ( c c ) 

A vect that either points to the coloring routines when a color 
window is active > or to NOOP when a 0 graphics window is active. 

^CAP ( c c ) 

Capitalization routine. 

*INV ( c c ) 

A vect that either points to the inversing routine when a 0 
graphics window is active ^ or to NOOP when a color window is active. 



Text Compress ion 

XXX 5 ( ) 
XXX : { ~~ ) 

Creates a tc-word-compil ing word^ named xxx, and a headerless 
tc-word which when executed sends the string xxx through the formatter 
follov'/ed by ^SPACE. xxx when executed, compiles in the cfa of this 
tc-word, W- and xxx are both in transient area and so are disposed by 
DISPOSE. 

P™ xxx, ( ) 
xxx J ( ) 

Creates a tc-prefix~compil ing word^ named xxx, and a headerless 
tc-prefix which when executed sends the string xxx through the 
formatter, xxx when executed, compiles in the cfa of this tc-prefix. 
P^ and xxx are both in the transient area and so are disposed by 
DISPOSE, 

S- xxx, { ) 

xxx 5 ( — ) 

Creates a tc-suff ix-compil ing word, named xxx and a headerless 
tc~suffix which when executed sends the string xxx through the formatter 
preceded by ^BACKS and follov/ed by "^SPACE. xxx, when executed, compiles 
in the cfa of this tc-suffix. S™ and xxx are both in the transient 
area and so are disposed by DISPOSE, 
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PRTWID i — n ) 



A quan containing the v^idth of the area to be printed when printer 
output from the formatter has been selected by PRT:. PRT:, among other 
things, moves PRTWID to WWID, 

PRTIND ( n ) 

A quan containing the number of spaces the printer is to indent 
when outputting from the formatter, PRTIND is moved to PVIND by PRT: 

PVIND ( n ) 

A quan containing the number of spaces the output device is to indent 
when outputting from the formatter » Set ud by PRT: from PRTIND or by VI D: 
from yiDIND. 

PWID { — n ) 

A quan containing the number of columns the printer is actually able 
to print as it is currently configured ^ and independent of the formatting 

routines . 

VIDIND { n ) ■ 

A quan containing the number of spaces the output routines is to 
indent when outputting from the formatter. VIDIND is moved into PVIND 
by VID:. 

VIDWID ( n ) 

A quan containing the width of the area to be written when video 
output from the formatter has been selected by VID:. VID:, among other 
things, moves VIDWID to WWID. 

PRT: { ) 

Directs TYPEd output to the printer, and moves appropriate values 
into WWID and PVIND. 

VID: ( ) 

Directs TYPEd output to the video display, and moves appropriate 
values into WWID and PVIND. 

PRINIT ( ) 

Resets PCTR, the printed line counter. 

"^XMTLNP ( ) 

Routine sent to the vect ^'XMTLN by TYPEOUT, Routes output 
through TYPE, 
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Wi ndows 

WADR ( ) 

Address in memory corresponding to character position in upper 
lefthand corner of current window. 

WHGT ( ) 

Height in lines of currently active window. 
LPTR ( " ) 

Counter that holds number of next line in window to which text is 
to be written. If LPTR points beyond the window then scrolling will 
occur at next output, 

B/LN ( n ) 

Bytes per line. Necessary datum for scrolling and clearing routines 
for windows. 

iCLR ( ~- ) 

Fills the current window with BKGND. 

NAMWND ( wadr wid hght b/ch byt/ln ~~ ) 

One of many possible window-defining structures. Accepts window 
upper lefthand corner address, its width , height , byte-character, and 
the bytes/In of the current graphics mode* 

NAMEBW XXX 5 ( column row wid hgt ) 
xxx: ( ) 

Names a 0 graphics window for later activation. 
MAKEBW ( col row wid hgt ) 

Establishes a 0 graphics window immediately but does not name 
it for later retrieval. 

NAMECW xxx 5 ( col row wid hgt ) 
xxx: { ) 

Names a 1 or 2 graphics window for later activation, 
HAKECW ( col row wid hgt ) 

Establishes a 0 graphics window immediately but does not name 
it for later retrieval* 
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v irtual (Disk-bas e d) He niory 

(A pointer to a byte on disk is implemented by the two system variables 5 BLK and 
IN in the fig model. BLK contains the block number pointed to and IN contains 
the number of bytes into the block the byte in question is located 

VRTCg ( b ) 

Fetches the byte pointed to on disk by the system variable BLK and 
IN. (BLK is the block number^ and IN is the number of bytes into the 
block the desired byte is located.) 



VRTC! ( b ) 



Stores the byte on stack to the location on disk pointed to by BLK 
and IN. See VRTC@. 

VPsTSAV ( ) 

Saves the values of system variables BLK and IN to quans OBLK and 
01 N respectively, 

VRTREC ( " ) 

Recalls the values of the system variables BLK and IN from the 
quans OBLK and OIN respective! y« 

NXTVRT ( ) 

Bumps the system variables BLK and IN as required to point to the 
next location in virtual memory, 

RELVRT ( offset ) 

Takes an offset on stack and alters the system variables BLK 
and IN as necessary to point offset bytes from their initial virtual 
memory location. 

V^' ( blk in ) 

Leaves the values of BLK adn IN on the stack at the time it is 
executed and then scans the virtual memory pointer formed by BLK and 
IN forward until the next character is encountered, 

XMTV ( ) 

Starting from the location in virtual memov^y pointed to by BLK 
and IN, outputs characters through ^-'EMIT until a " character is 
encountered, which it does not output. 
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XCOUNT ( adr adr+2 xcount ) 

Extracts a two~byte count from an extended string 5 and leaves 
the count on top of the address 2. 

M: XXX, ( blk in ) 
XXX : ( ) 

Generally used after V'', Takes a virtual memory pointer from 
the stacks and creates a word xxx which when executed will push the 
virtual memory pointer to BLK and IN and then exectue XMTV, thus 
retrieving a message from disk. See Stroll ing..« for an example. 

V: xxx, ( blk In ) 
xxx: ( j 

Creates a v^ford xxx which when executed pushes the virtual memory 
pointer which was on stack at the time of its creation to BLK and IN, 

V$TP ( — XCOUNT ) 

Extracts a two-byte string count from the disk location to which 
BLK and IN point , leaves it on stack, and bumps the virtual memory 
pointer made up of BLK and IN twice. 

V$@ ( X$-PAD ) 

Extracts the extended string in virtual memory pointed to by BLK 
and IN, The string is left at PAD* 

V$^EMT ( ) 

Sends the extended string pointed to by BLK and IN through *EMIT. 

y$i ( X$ ) 

Stores the extended string on stack to virtual memory starting at 
the location pointed to by BLK and IN. 

X" ( ---X$-PAD ) 

Reads the following characters until the delimeter as an 
extended string and stores the string at PAD. Operates from screens 
only. Crosses block and screen boundaries without additional code. 
Do not use to cross screens, as will just become part of the 
stri no* 

ALTSAV { ) 

Copies variables BLK and IN to quans ALTBLK and ALTIN respectively. 
ALTREC { ) 

Copies quans ALTBLK and ALTIN to variable BLK and IN respectively. 
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ALTINIT ( scr } 

Sets up ALTBLK and ALTIN to point to screen scr. ALTBLK and ALTIN 
forni an auxiliary virtual memory pointer that is used to keep track of 
how far messages have been compiled onto the destination disk* 

ALT$1 ( X$ ) 

Like V$l except stores string through alternate virtual memory 
pointers made up of ALTBLK and ALTIN. 



nil. TEXT COMPRESSION AND AUTO TEXT FORMATTING 

SUPPLIED SOURCE LISTING 
Screens 1 Screens 4 
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HERE CONSTANT TftREfi 


12 


12 


QUftN TP 


1 




QUm TPFLflG 1 TO TPFLftG 


14 


14 


QUm OLDDP ( old HERE ) TO OLDDP 




15 


.y 



Screen? £ Screens 5 

0 0 i Xsientss TRANSIENT PERMANENT ) 

1 1 ( Exparsded from code by Phillip) 
i2 2 ( Wassori^ in Forth Dimensions ) 
3 

4 4 : TRANSIENT ( — ) 

5 5 TPFLfiG NOT 

6 6 IF HERE TO OLDDP TP DP i 

7 7 1 TO TPFLAG 
a a END IF ; 

3 9 

10 10 : PERMANENT ( — ) 

11 11 TPFLAG 

12 12 IF HERE TO TP OLDDP DP ! 

13 13 0 TO TPFLAG 

14 14 END IF I 

15 15 



Screen : 3 Screen ; 6 
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: DISPOSE PERMANENT 
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CR Disposing. . . " VOC-LINK 
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BEGIN DUP 0 53279 C! 
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BEGIN e> DUP TAREA U< 
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UNTIL DUP ROT ! DUP 0= 
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